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

В основном я пытался сделать пошаговый выбор переменных, используяfastbw() вэфф пакет. Я хотел бы передать список переменных, выбранных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 и до сих пор не отследил крутой кривой обучения, поэтому извиняюсь за очевидные ошибки программирования.