# NOT RUN {
## load data
data("AirPollution", package = "lmSubsets")
## fit subsets
lm_all <- lmSubsets(mortality ~ ., data = AirPollution)
## refit best model
lm5 <- refit(lm_all, size = 5)
summary(lm5)
# }
Run the code above in your browser using DataLab