multrnd_histc <- function(n,p)
{
edges <- c(0, cumsum(p))
l <- length(edges)
r <- hist(runif(n)*edges[l], edges, plot = FALSE)$counts
return(r)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.