从summ.svyglm对象中获取r2

我正在尝试获取经调查调整的逻辑模型的R²。我使用的是jtools，它将伪R²和观察结果打印到屏幕上，但我无法确定如何将这些元素提取到data.frame中

library(survey)
library(jtools)
data(api)
dstrat <- svydesign(id = ~1, strata =~ stype, weights =~ pw,
data = apistrat, fpc =~ fpc)
regmodel <- svyglm(as.numeric( both =="Yes") ~ ell * meals, design = dstrat, family="binomial" )
summ(regmodel)

图书馆（调查）
图书馆（jtools）
数据（api）
dstrat这些被存储为
sum（regmodel）
对象的属性。“Cragg Uhler”值位于属性“rsq”

中，“McFadden”值位于属性“rsqmc”中。您可以使用

rsq <- attr(summ(regmodel), "rsq")
rsqmc <- attr(summ(regmodel), "rsqmc")

---

rsq这些被存储为
sum（regmodel）
对象的属性。“Cragg Uhler”值位于属性“rsq”

中，“McFadden”值位于属性“rsqmc”中。您可以使用

rsq <- attr(summ(regmodel), "rsq")
rsqmc <- attr(summ(regmodel), "rsqmc")

---

rsq您可以尝试以下方法之一：

library(survey)
library(jtools)
data(api)
dstrat <- svydesign(id = ~1, strata =~ stype, weights =~ pw,
                    data = apistrat, fpc =~ fpc)
regmodel <- svyglm(as.numeric( both =="Yes") ~ ell * meals, design = dstrat, family="binomial" )

输出：

[1] 0.00107412

[1] "Pseudo-R² (Cragg-Uhler) = 0.00"

[1] "Pseudo-R² (McFadden) = 0.01"

方法2：

#Approach 2
x <- capture.output(summ(regmodel))
x[9]
x[10]

您可以尝试以下方法之一：

library(survey)
library(jtools)
data(api)
dstrat <- svydesign(id = ~1, strata =~ stype, weights =~ pw,
                    data = apistrat, fpc =~ fpc)
regmodel <- svyglm(as.numeric( both =="Yes") ~ ell * meals, design = dstrat, family="binomial" )

输出：

[1] 0.00107412

[1] "Pseudo-R² (Cragg-Uhler) = 0.00"

[1] "Pseudo-R² (McFadden) = 0.01"

方法2：

#Approach 2
x <- capture.output(summ(regmodel))
x[9]
x[10]