Nothing
upperp <- function(...) {
args <- list(...)
circ1 <- ellipse(diag(rep(1, 2)), t = .1)
panel.xyplot(
circ1[, 1],
circ1[, 2],
type = "l",
lty = trellis.par.get("reference.line")$lty,
col = trellis.par.get("reference.line")$col,
lwd = trellis.par.get("reference.line")$lwd
)
circ2 <- ellipse(diag(rep(1, 2)), t = .2)
panel.xyplot(
circ2[, 1],
circ2[, 2],
type = "l",
lty = trellis.par.get("reference.line")$lty,
col = trellis.par.get("reference.line")$col,
lwd = trellis.par.get("reference.line")$lwd
)
circ3 <- ellipse(diag(rep(1, 2)), t = .3)
panel.xyplot(
circ3[, 1],
circ3[, 2],
type = "l",
lty = trellis.par.get("reference.line")$lty,
col = trellis.par.get("reference.line")$col,
lwd = trellis.par.get("reference.line")$lwd
)
panel.xyplot(args$x,
args$y,
groups = args$groups,
subscripts = args$subscripts)
}
lowerp <- function(...) {
}
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.