lines.rirf <- function(x, theta = x$theta, lwd = 2,
col = "r", ...) {
col <- getcolors(col, ncol(x$p))
for(i in 1:ncol(x$p))
lines.default(theta, x$p[, i], lwd = lwd, col = col[i], ...)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.