`ICMg.multinom.single` <- function(prob) { cs <- cumsum(prob) which.max(runif(1) <= cs/cs[length(cs)]) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.