Nothing
setmfrow <- function(np, ask = NULL)
{
if(np > 12L) {
if(is.null(ask)) ask <- TRUE
par(ask = ask)
par(mfrow = c(4L, 3L))
} else par(mfrow = n2mfrow(np))
return(invisible(NULL))
}
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.