Usage
dOFV.vs.id(xpdb1,
xpdb2,
sig.drop=-3.84,
decrease.label.number=3,
increase.label.number=3,
id.lab.cex=0.6,
id.lab.pos=2,
type="o",
xlb="Number of subjects removed",
ylb=expression(paste(Delta,"OFV")),
main="Default",
sig.line.col = "red",
sig.line.lty = "dotted",
tot.line.col = "grey",
tot.line.lty = "dashed",
key=list(columns = 1,
lines = list(pch = c(super.sym$pch[1:2],NA,NA),
type=list("o","o","l","l"),
col = c(super.sym$col[1:2],sig.line.col,tot.line.col),
lty = c(super.sym$lty[1:2],sig.line.lty,tot.line.lty)
),
text = list(c(
expression(paste(Delta, OFV[i] < 0)),
expression(paste(Delta, OFV[i] > 0)),
expression(paste("Significant ",Delta, OFV)),
expression(paste("Total ",Delta, OFV))
)),
corner=c(0.95,0.5),border=T
),
...)