Nothing
print.stand3d <- function(x,...){
n <- length(x$plants)
cat("Yplant - stand object (class \'stand3d\').\n\n")
cat(paste(c(rep("-",30),"\n"),collapse=""))
cat("Contains",n,"plants.\n")
cat("Leaf area index :",round(x$LAI,3),"m2 m-2")
}
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.