Nothing
make.multigrid <-
function(x,y,z,group,...){
grd <- NULL
for(g in unique(as.character(group))){
i <- which(group==g)
grd[[g]] <- make.grid(x[i],y[i],z[i],...)
}
return(grd)
}
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.