我试图自动化我的一段代码,以便编程变得不那么乏味。
基本上,我试图fastbw()
在rms包中逐步选择变量。我想将选择的变量列表传递fastbw()
给公式y ~ x1+x2+x3
,“x1”“x2”“x3”是选择的变量列表fastbw()
这是我尝试过但没有用的代码
olsOAW0.r060 <- ols(roll_pct~byoy+trans_YoY+change18m,
subset= helper=="POPNOAW0_r060",
na.action = na.exclude,
data = modelready)
OAW0 <- fastbw(olsOAW0.r060, rule="p", type="residual", sls= 0.05)
vec <- as.vector(OAW0$names.kept, mode="any")
b <- paste(vec, sep ="+") ##I even tried b <- paste(OAW0$names.kept, sep="+")
bestp.OAW0.r060 <- lm(roll_pct ~ b ,
data = modelready,
subset = helper =="POPNOAW0_r060",
na.action = na.exclude)
我是 R 新手,还没有经历过陡峭的学习曲线,所以对于明显的编程错误深表歉意。