Nothing
cutAndPathSetPerms <- function(stsep, n) {
p <- permn(2:(n+1))
#p <- permn(sort(unique(unlist(stsep))))
l <- length(stsep)
permute <- function(perm) {
for(i in 1:l) {
for(j in 1:length(stsep[[i]])) {
stsep[[i]][j] <- perm[stsep[[i]][j]-1]
}
stsep[[i]] <- sort(stsep[[i]])
}
stsep
}
stsepPerms <- lapply(p, permute)
stsepPerms
}
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.