Nothing
CRandom<-function(r,k,f,n){
tm = gl(k, 1, n*k, factor(f)); # matching treatment
tm;
av = aov(r ~ tm);
summary(av);
TukeyHSD(av);
}
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.