Nothing
insertval2 <-
function (x, nmod)
{
xx <- matrix(0, length(x), nmod)
for (i in 1:length(x)) xx[i, x[i]] <- 1
list(xx = xx)
}
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.