# NOT RUN {
data(Prestige, package="carData")
mod <- lm(prestige ~ income + education + women, data=Prestige)
tmp <- crSpanTest(mod, c(.1, .9), adjust.method="holm",
adjust.type="both")
matplot(tmp$x, tmp$y, type="l")
# }
Run the code above in your browser using DataLab