Take a stratified sample

This function takes a stratified sample without replacement from a data set.

stratsample(strata, counts)

Arguments

strata

Vector of stratum identifiers; will be coerced to character

counts

named vector of stratum sample sizes, with names corresponding to the values of as.character(strata)

Value

vector of indices into strata giving the sample

See also

sample

The "sampling" package has many more sampling algorithms.

Examples

  data(api)
  s<-stratsample(apipop$stype, c("E"=5,"H"=4,"M"=2))
  table(apipop$stype[s])
#> 
#> E H M 
#> 5 4 2