Nothing
"cleanstrata" <-
function(strata)
{
a=sort(unique(strata))
b=1:length(a)
names(b)=a
as.vector(b[as.character(strata)])
}
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.