我正在为某些逻辑回归模型估计Nagelkerke R ^ 2。由于我有很多模型,因此我尝试使用 <a id="finish" access="" allof="PA.DEPLOYMENT_CONFIG" class="btn criteria-filter btn-success" href="" ng-click="verifyAllFields(sftpForm) && sftpForm.$valid && create()">Finish
</a>
自动执行该过程。但是,当我将for
模型加入一个列表时,来自软件包glm
的{{1}}函数给了我一个错误。
NagelkerkeR2()
我认为发生此错误是因为此功能仅适用于“ glm”“ lm”对象。那么,有没有办法将glm对象作为单个“ glm”“ lm”对象加入?
答案 0 :(得分:2)
我认为您正在寻找类似的东西:
Nag_R2 <- numeric(length(x)) ## pre-allocate vector
for (i in 1:10) {
Nag_R2[i] <- NagelkerkeR2(x[[i]])[2]
}
这是假设NagelkerkeR2
返回的任何内容的第二个成分都是您要保存的数值(我尚未检查)。
请注意,如果您要从Hadley Wickham返回对象(而不是长度为1的列表),则需要使用[[]]
来访问列表的元素