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
```