
plotConf(model, var1 = all.vars(formula(model))[2], var2 = NULL,
data = NULL, ci.lty = 0, ci = TRUE, level = 0.95, pch = 16,
lty = 1, lwd = 2, npoints = 100, xlim, col = NULL, colpt,
alpha = 0.5, cex = 1, delta = 0.07, centermark = 0.03, jitter = 0.2,
cidiff = FALSE, mean = TRUE, legend = ifelse(is.null(var1), FALSE,
"topright"), trans = function(x) { x }, partres = inherits(model,
"lm"), partse = FALSE, labels, vcov, predictfun, plot = TRUE,
new = TRUE, ...)
lm
)var1
var2
)var1
var1
var1
var1
var1
var2
var1
)termplot
n <- 100
x0 <- rnorm(n)
x1 <- seq(-3,3, length.out=n)
x2 <- factor(rep(c(1,2),each=n/2), labels=c("A","B"))
y <- 5 + 2*x0 + 0.5*x1 + -1*(x2=="B")*x1 + 0.5*(x2=="B") + rnorm(n, sd=0.25)
dd <- data.frame(y=y, x1=x1, x2=x2)
lm0 <- lm(y ~ x0 + x1*x2, dd)
plotConf(lm0, var1="x1", var2="x2")
abline(a=5,b=0.5,col="red")
abline(a=5.5,b=-0.5,col="red")
### points(5+0.5*x1 -1*(x2=="B")*x1 + 0.5*(x2=="B") ~ x1, cex=2)
data(iris)
l <- lm(Sepal.Length ~ Sepal.Width*Species,iris)
plotConf(l,var2="Species")
Run the code above in your browser using DataLab