Question

我试图隐藏逐步回归的结果，所以它不会出现在终端上，但看起来隐形功能不起作用。有没有办法隐藏逐步回归结果？请参阅下面的数据集

library(MASS)
all_df <- data.frame(x1=c(sample(rep(c(4:5),length.out=60)),sample(rep(c(1:3),length.out=40)),sample(rep(c(1:5),length.out=100))),
                     y1=c(sample(c(0,1), 30,replace=T,prob=c(.3,.7)),c(sample(c(0,1), 30,replace=T)),sample(c(0,1), 40,replace=T,prob=c(.7,.3))),
                     y2=c(sample(c(0,1), 30,replace=T,prob=c(.3,.7)),c(sample(c(0,1), 30,replace=T)),sample(c(0,1), 40,replace=T,prob=c(.7,.3))))


invisible(result_srk<- as.data.frame(summary( stepAIC(lm(x1~y1*y2
                                                         ,data=all_df), direction="both"))$coef))

Answer 1

标准方法是使用sink（）：

sink(tempfile())
result_srk<- as.data.frame(summary( stepAIC(lm(x1~y1*y2,
     data=all_df), direction="both"))$coef)
sink()

隐藏R中的逐步回归

1 个答案: