Nothing
`print.allPerms` <- function(x, ...) {
dims <- dim(x)
control <- attr(x, "control")
observed <- attr(x, "observed")
attributes(x) <- NULL
dim(x) <- dims
print(x)
return(invisible(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.