Nothing
permutateX <- function(X) {
N <- sum(X)
K <- length(X)
perm_x <- as.vector(unname(table(sample(K, size = N, replace = TRUE))))
return(perm_x)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.