# NOT RUN {
library(psycho)
fit <- lmerTest::lmer(Tolerating ~ Adjusting + (1 | Sex),
data = psycho::affective
)
fit <- lme4::glmer(Sex ~ Adjusting + (1 | Salary),
data = na.omit(psycho::affective), family = "binomial"
)
get_R2(fit)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab