Nothing
designRaster <-
function(R,book){
ncb<-ncol(book)
ncr<-ncol(R)
y<-book[R$EU,]
z<-cbind(R,y)
out <-agricolae::tapply.stat(z[,2:3],z[,(ncr+1):(ncr+ncb)])
return(list(design=out,rasterField=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.