powered by
rmultinom
rspin(n, probs, labels = 1:length(probs))
rspin(20, prob=c(1,2,3), labels=c("Red", "Blue", "Green")) do(2) * rspin(20, prob=c(1,2,3), labels=c("Red", "Blue", "Green"))
Run the code above in your browser using DataLab