R ссылается на переменную строка

Question

Привет, ребята, у меня есть некоторые данные, и я хотел бы автоматически запустить некоторые регрессии на основе этого кода:

library(dplyr)
library(plyr)

set.seed(123)
v1<-c(rnorm(340,0,1))
v2<-c(rnorm(340,1,1))
v3<-rnorm(340,2,1)
v4<-rnorm(340,4,1)
v5<-rnorm(340,8,1)
v6<-rnorm(340,0,3)
v7<-rnorm(340,2,6)
v8<-rnorm(340,3,2)
v9<-rnorm(340,9,1)
v10<-rnorm(340,0,2)
date<-seq(as.Date("1990-01-01"), as.Date("2018-04-01"),by="months")
data<-data.frame(date,v1,v2,v3,v4,v5,v6,v7,v8,v9,v10)
rownames(data)<-data$date
data<- data[-1]
rm(v1,v2,v3,v4,v5,v6,v7,v8,v9,v10)

all.combs<- function(dataframe,y){
  df<-dataframe
  df[[substitute(y)]]<- NULL

  m1<- data.frame(t(combn(colnames(df),1)))
  colnames(m1)<-"x1"
  m2<- data.frame(t(combn(colnames(df),2)))
  colnames(m2)<-c("x1","x2")
  m3<- data.frame(t(combn(colnames(df),3)))
  colnames(m3)<-c("x1","x2","x3")
  m4<- data.frame(t(combn(colnames(df),4)))
  colnames(m4)<-c("x1","x2","x3","x4")
  liste<- rbind.fill(m1,m2,m3,m4)
  return(liste)
}

test<-all.combs(data,v3)

, где test - это фрейм данных, где каждая строка представляет собой список независимых переменных, иv3 моя зависимая переменная.Теперь я хочу запустить регрессии со всеми строками теста.то есть что-то вроде этого

for (i in 1:nrow(test){
reg<-lm(data$v3~data$test[i] 
regs$"i"<-predict(reg)
}

Итак, у меня есть фрейм данных со всеми прогнозируемыми значениями всех регрессий всех комбинаций, которые я сгенерировал с помощью своей функции на v3.

Заранее спасибо, Питер

Answer 1

Я нашел решение своего вопроса, добавив эти строки и сославшись на строку 149 в примере:

test<-all.combs(data,CPI)

to.match<-c(as.character(test[149,]))

tt<-select(data,grep(paste(to.match,collapse = "|"),names(data)))