循环遍历R中的变量
我有一个结果数据,Y和10个预测因子(X1-X10)循环遍历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
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)