R GOF-Logistic模型

我想从下面的R输出中提取单个统计信息。怎么办

# R code
library(pscl)
full <- glm(RESPONSE ~ as.factor(SEX) + TOTCHOL + AGE + ..., 
        data=training, family=binomial(link="logit"))
summary(full)
# McFadden's GOF pseudo R-squared, 0.2 to 0.4 indicates good model fit
McFadden=round(pR2(full),digits=4)['McFadden']; McFadden

错误：

pR2$McFadden
Error in pR2$McFadden : object of type 'closure' is not subsettable

---

我猜你没有给我们所有的代码，并且reduce被分配了一个回归调用的值，看起来是一个向量而不是一个列表，所以你可能会使用类似以下未测试代码的东西：

round(pR2(reduced),digits=4)['McFadden']

---

我从来没有使用过这种语法['McFadden']。非常感谢你。它是有效的。。。嗯

round(pR2(reduced),digits=4)['McFadden']