Как мне перебрать код со списком переменных?

Question

Я безуспешно пытаюсь создать цикл, который проходит через list_vars и код, указанный ниже (dep1 изменится для каждого цикла на следующую переменную в list_vars). Является ли цикл for лучшим вариантом, и если да, то не могли бы вы посоветовать, как его создать?

данные импорта

data <- read.csv("data.csv", header = TRUE, sep=',')
group <- read.csv("group.csv", header = TRUE, sep=',')

создать список переменных для циклического перебора

list_vars <- list(c("dep1",
                "dep2",
                "dep3",
                "dep4",
                "dep5",
                "dep6",
                "dep7",
                "dep8",
                "dep9"))

Выполнить следующий код для каждой переменной в list_vars

full.model <- lm(dep1 ~ indep1 
              + indep2
              + indep3
              + indep4
              + indep5
              + indep6
              + indep7
              + indep8
              + indep9
              + indep10,
              data = data)

step.model <- stepAIC(full.model, direction = "both", trace = FALSE)

dep1_regr <- predict(step.model, newdata = data)

data <- cbind(data, dep1_regr)

dep1_data <- select(data, country, impute_q, UNIQUE, weight, dep1_regr, dep1) 

write.xlsx(dep1_data, "dep1.xlsx", sheetName="dep1", 
           col.names=TRUE, row.names=FALSE, append=FALSE)

write.xlsx(group, "dep1.xlsx", sheetName="group", 
           col.names=TRUE, row.names=FALSE, append=TRUE)

Answer 1

Возможно, для этого лучше использовать цикл foreach ...

foreach (variable in yourList){

   do Something/print
}