fit <- lm(Ozone ~ Solar.R + Wind + Temp, data = airquality)
v1 <- visreg(fit, "Wind", plot = FALSE, alpha = 0.2)
v2 <- visreg(fit, "Wind", plot = FALSE, alpha = 0.01)
vv1 <- visreg_list(v1, v2, collapse = FALSE)
vv2 <- visreg_list(v1, v2,
collapse = TRUE,
labels = c("Confidence: 0.80", "Confidence: 0.99")
)
plot(vv1)
plot(vv2)
Run the code above in your browser using DataLab