Nothing
cyclicalPermute <-
function(m, r){
if(m == 1) part1 <- NULL
else part1 <- 1:(m-1)
part2 <- (m:(r+1))[c((r+1-m+1), (1:(r+1-m)))]
c(part1, part2)
}
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.