Выбор подмножества регрессионных моделей с использованием Adj-R в квадрате

Question

Я хочу выбрать подмножество предикторов, используя скорректированный квадрат r в модели множественной линейной регрессии.Я построил следующую модель.

 library(ISLR)
 attach(College)
 full.model <- lm(formula = Grad.Rate ~ ., data = College)
 summary(full.model)

 reduced.model <- step(object = full.model, direction = "forward")
 summary(reduced.model)

Я хочу найти оптимальное подмножество из full.model как уменьшенное.model на основе скорректированного r-квадрата.Кто-нибудь может помочь?