This is essentially `rmultinom`

with a different interface.

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

- 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

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