##' Add grids on plot
##'
##' @export
grid2 <- function(x.at = NA, y.at = NA, col = "black", lty="dotted", lwd = 0.5, ...)
{
abline(h = y.at, v = x.at, col = col, lty = lty, lwd = lwd, ...)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.