Nothing
#' @importFrom lattice panel.loess panel.rug panel.text
panel.addons <- function(x, y, smooths = FALSE, rugplot = FALSE, id.n = 3)
{
if(smooths)
panel.loess(x, y, col = "red")
if(rugplot)
panel.rug(x, col = "black")
if(id.n > 0) {
n <- length(y)
out <- order(abs(y))[(n - id.n + 1):n]
panel.text(x[out], y[out], paste(" ", out, sep = ""), adj = 0)
}
invisible()
}
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.