GOF物流模型R

Question

我想从下面的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 

输出：

library(pscl) 
round(pR2(reduced),digits=4) 
     llh llhNull  G2 McFadden  r2ML r2CU 
-165.6085 -191.1523 51.0875 0.1336 0.0663 0.1651 

错误：

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

Answer 1

我猜，你没有给我们所有的代码和reduced被分配了回归调用的值并且似乎是一个矢量而不是一个列表，所以你会（可能）使用类似这样的未经测试的代码：

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