Nothing
plot.riif <- function(x, theta = x$theta, add = FALSE,
xlab = expression(theta), ylab = "Information", main = "IIF",
lwd = 2, col = "r", ...) {
ni <- ncol(x$pq)
if(!add)
plot.default(c(min(theta), max(theta)), c(0, max(x$pq)),
xlab = xlab, ylab = ylab, main = main, type = "n", ...)
lines(x, theta, lwd = lwd, col = col)
}
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.