看看Design包中的lrm()
函数。它具有安装 GLM 所需的一切功能。Hosmer 和 Lemeshow 检验的功效有限,并且依赖于任意离散化;Harrell, Regression Modeling Strategies (p. 231) 和R-help邮件列表中对此进行了讨论。在逻辑回归模型的拟合优度测试的比较Stat 中,也有逻辑回归的 GoF 测试比较。医学。1997 年 16(9):965。
这是一个使用示例:
library(Design) # depends on Hmisc
x1 <- rnorm(500)
x2 <- rnorm(500)
L <- x1+abs(x2)
y <- ifelse(runif(500)<=plogis(L), 1, 0)
f <- lrm(y ~ x1+x2, x=TRUE, y=TRUE)
resid(f, 'gof')
这会产生类似的东西
Sum of squared errors Expected value|H0 SD
100.33517914 100.37281429 0.37641975
Z P
-0.09998187 0.92035872
但请参阅help(residuals.lrm)
以获取更多帮助。
以下线程包含可能也有帮助的批判性讨论:逻辑回归:要报告哪个伪 R 平方度量(Cox & Snell 或 Nagelkerke)?