This is essentially rmultinom with a different interface.

rspin(n, probs, labels = 1:length(probs))

## Arguments

n

number of spins of spinner

probs

a vector of probabilities. If the sum is not 1, the probabilities will be rescaled.

labels

a character vector of labels for the categories

## Examples

rspin(20, prob=c(1,2,3), labels=c("Red", "Blue", "Green"))
#>   Red Blue Green
#> 1   5    7     8
do(2) * rspin(20, prob=c(1,2,3), labels=c("Red", "Blue", "Green"))
#> Using parallel package.
#>   * Set seed with set.rseed().
#>   * Disable this message with options(mosaic:parallelMessage = FALSE)
#>   Red Blue Green .row .index
#> 1   3    6    11    1      1
#> 2   2    6    12    1      2