Nothing
cls<- function(lab)
{
gr <- sort(unique(lab))
z <- matrix(0, length(lab), length(gr))
for (i in 1:length(gr)) z[lab == gr[i], i] <- 1
z
}
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.