# 'sample' gives warning for alias sampling due to incompatible results with
# earlier versions of R
spSample <- function(n, p) {
#suppressWarnings(sample(length(p), size=n, replace=TRUE, prob=p))
sample(length(p), size=n, replace=TRUE, prob=p)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.