# Compute a grid for graphical arrangement
.dimMosaic <- function(n.plot){
x <- floor(sqrt(n.plot))
y <- floor(sqrt(n.plot))
if(x * y < n.plot) y <- y + 1
if(x * y < n.plot) x <- x + 1
return(c(x, y))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.