library(FWDselect)
data(pollution)
x=pollution[,-19]
y=pollution[,19]
obj1=selection(x,y,q=1,method="lm",criterion="deviance")
obj1
obj11=selection(x,y,q=1,method="lm",criterion="deviance",seconds=TRUE,nmodels=2)
obj11
Run the code above in your browser using DataLab