resample <-
function (x, size, ...)
if (length(x) <= 1) {
if (!missing(size) && size == 0)
x[FALSE]
else x
} else sample(x, size, ...)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.