R中使用step()选BIC最优模型时如何仅输出最终模型？

核心方法是利用step()函数自带的trace参数控制输出详细程度，具体操作如下：

方法1：调整trace参数（最推荐） #

step()函数默认trace = 1，会打印每一轮迭代的变量增减、BIC变化等细节；将参数设为trace = 0时，函数会跳过中间过程输出，仅返回最终最优模型，你可以后续单独打印该模型查看结果。
示例代码如下：

# 仅计算并返回最优模型，不输出中间迭代过程
best_model <- step(fit4, direction = "both", k=log(nrow(college_train)), trace = 0)
# 打印最终最优模型结果
best_model

方法2：配合R Markdown代码块参数实现 #

如果你不想修改step()的调用参数，也可以通过代码块参数隐藏中间输出，再单独打印结果：
首先调用step()的代码块设置隐藏输出的参数：{r, results='hide', warning=FALSE}

step_result <- step(fit4, direction = "both", k=log(nrow(college_train)))

再新增一个无特殊参数的代码块打印最终结果即可：

step_result

注意：两种方法都不会影响模型的选择逻辑，最终得到的最优模型和输出全部迭代过程时的结果完全一致。

内容的提问来源于stack exchange，提问作者Alex