Nothing
dummy <-
function(x){
if(class(x)!="factor")
{return(x)
}else{
x=as.integer(x)
new=matrix(0,length(x),max(x)-1)
for(i in 1:(max(x)-1)){new[x==i,i]=1}
return(new)}
}
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.