使用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)

我想根据调整后的r平方从full.model中找到一个最优子集，作为reduce.model。有人可以帮忙吗？