循环遍历R中的变量

循环遍历R中的变量,r,function,loops,R,Function,Loops,我有一个结果数据,Y和10个预测因子(X1-X10) set.seed(1001) n可能有很多方法可以解决这个问题,但我会这样做。我首先创建一个自变量向量,我想在我的模型中使用: #vector of independent variables iv <- grep("X",colnames(datasim), value=T) 可能有很多方法可以解决这个问题,但我会这样做。我首先创建一个自变量向量,我想在我的模型中使用: #vector of independent variable

我有一个结果数据,Y和10个预测因子(X1-X10)

set.seed(1001)

n可能有很多方法可以解决这个问题,但我会这样做。我首先创建一个自变量向量,我想在我的模型中使用:

#vector of independent variables
iv <- grep("X",colnames(datasim), value=T)

可能有很多方法可以解决这个问题,但我会这样做。我首先创建一个自变量向量,我想在我的模型中使用:

#vector of independent variables
iv <- grep("X",colnames(datasim), value=T)

非常感谢@Heroka。很好用,不用谢!我很高兴看到你完美地修复了上一期(索引/奇怪的结果)。非常感谢@Heroka。很好用,不用谢!我很高兴看到您完美地修复了之前的问题(索引/奇怪的结果)。
#vector of independent variables
iv <- grep("X",colnames(datasim), value=T)
glmfunction <- function(data,indices, iv){
  res <- sapply(iv, function(x){
    fit <- glm(formula=sprintf("Y~%s",x), family="binomial", data=data[indices,])
    #deviance
    dDeviance <- with(fit, null.deviance - deviance)
    return(dDeviance)
  })
  res
}
result <- boot(datasim,glmfunction, iv = iv, R=10)