Nothing
permWithin <- function(G) {
n <- length(G)
splind <- split(1:n,f=G)
ipl <- lapply(splind,sample)
unsplit(ipl,G)
}
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.