# NOT RUN {
##mtcars data is used as an example.
data(mtcars)
fit1 <- lm(mpg~1, mtcars)
add1summary(fit1)
add1summary(fit1, scope=~.+disp+cyl+wt+qsec+cyl, alpha=0.025)
fit2 <- lm(mpg~disp+cyl+wt+qsec+cyl, mtcars)
add1summary(fit2, mtcars)
# }
Run the code above in your browser using DataLab