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 5 10
do(2) * rspin(20, prob=c(1,2,3), labels=c("Red", "Blue", "Green"))
#> Red Blue Green .row .index
#> 1 1 9 10 1 1
#> 2 6 10 4 1 2