У меня проблема с PseudoR2, который выдает следующую ошибку после использования объекта lo git из matchit:
Ошибка в as.data.frame.default (данные, необязательно = TRUE ): не может привести класс '' function '' к data.frame
Кажется, что он работает с обычным lo git, но хотя lo git из matchit кажется одинаковым в каждом Кстати, это выдает ошибку.
См. воспроизводимый пример ниже:
## Load libraries
library(MatchIt)
library(DescTools)
## Load data
data(mtcars)
## Use matchit to match data
matched <- matchit(vs ~ mpg + cyl,
method = "nearest", data = mtcars)
m1 <- matched$model ## Retrieve logit data from matchit
m2 <- glm(vs ~ mpg + cyl, family = binomial(logit), data = mtcars) ## Own logit
PseudoR2(m1)
PseudoR2(m2)