##subplot minimalistic
subplot <- function(v){
##error checking
err.WN.vec.dim(v,2)
##actual
par(mfrow = v)
return(NULL)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.