set.seed(1)
simulated <- data.frame(obs = factor(rep(letters[1:2], each = 100)),
perfect = sort(runif(200), decreasing = TRUE),
random = runif(200))
regionInfo <- trellis.par.get("reference.line")
regionInfo$col <- "lightblue"
trellis.par.set("reference.line", regionInfo)
lift(obs ~ random, data = simulated, type = "o")
## use a different panel function
liftPlot <- lift(obs ~ random, data = simulated, type = "o")
update(liftPlot, panel = panel.lift)
Run the code above in your browser using DataLab