R/panels.R

In AppliedPredictiveModeling: Functions and Data Sets for 'Applied Predictive Modeling'

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(...) {
  
}