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