Nothing
gam.mask <-
function(x, n.hidden)
{
mask <- matrix(1, ncol(x)+1, n.hidden)
nh <- ncol(mask)/ncol(x)
ij <- matrix(seq(nh*ncol(x)), nrow=nh)
for(i in seq(ncol(x))){
mask[i,c(ij[,-i])] <- 0
}
mask
}
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.