check 'caret' package, which can remove the redundant variable, and fit the linear model.
In fact, it give the wrap function simultaneously fit model and remove variabel.

Maybe, this function: recursive feature elimination.
rfe()

HTP