Nothing
tunemat.fn <-
function(l.forget,l.noforget,d){
tune.mat<-matrix(unlist(unique(combn(rep(c(l.noforget,l.forget),d),d,simplify=FALSE))),(2^d),d,byrow=TRUE)
return(tune.mat)}
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.