如何获得modelsummary
中的弱仪器F检验统计量?
data(mtcars)
library(ivreg)
iv_model <- ivreg(mpg ~ qsec + cyl + drat | disp | wt, data = mtcars)
summary(iv_model, diagnostics = TRUE)
Call:
ivreg(formula = mpg ~ qsec + cyl + drat | disp | wt, data = mtcars)
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 23.28560 20.84029 1.117 0.27370
disp -0.05730 0.02053 -2.791 0.00953 **
qsec 0.20443 0.59223 0.345 0.73263
cyl 0.88477 1.52033 0.582 0.56542
drat 0.25095 2.19015 0.115 0.90962
Diagnostic tests:
df1 df2 statistic p-value
Weak instruments 1 27 19.96 0.000127 ***
Wu-Hausman 1 26 13.87 0.000956 ***
Sargan 0 NA NA NA
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
默认情况下,metrics = "all"
选项显示Wu-Hausman和Sargan检验。
library(modelsummary)
modelsummary(iv_model, metrics = "all")
1条答案
按热度按时间kh212irz1#
modelsummary
包含一个向表中添加任何拟合优度统计信息的简单机制。有关详细说明和示例,请在此页上搜索glance_custom
:https://vincentarelbundock.github.io/modelsummary/articles/modelsummary.html在
ivreg
的特定情况下,贡献者只是向performance
和modelsummary
包添加了功能,以使其更容易。安装这两个包的开发版本:完全重新启动
R
以使更改生效。然后,