MuMIn
R
21
#load packages
library(lme4)
library(MuMIn)
#Fit Model
m <- lmer(mpg ~ gear + disp + (1|cyl), data = mtcars)
#Determine R2:
r.squaredGLMM(m)
R2m R2c
0.5476160 0.7150239
La salida para la función r.squaredGLMM
proporciona:
Nota: un comentario en la publicación del blog vinculado sugiere que un enfoque alternativo inspirado en Nakagawa y Schielzeth desarrollado por Jon Lefcheck (usando la sem.model.fits
función en el piecewiseSEM
paquete) produjo resultados idénticos. [Entonces tienes opciones: p].
No probé esta última función, pero probé la r.squaredGLMM()
función en el MuMIn
paquete y, por lo tanto, puedo dar fe de que todavía funciona hoy (2018).
2
1: Nakagawa, S. y Schielzeth, H. 2013. Un método general y simple para obtener R2 a partir de modelos lineales generalizados de efectos mixtos. Methods in Ecology and Evolution 4 (2): 133-142.
2: Johnson, PCD 2014 Extensión de Nakagawa y Schielzeth's R2GLMM a modelos de pendientes aleatorias. Methods in Ecology and Evolution 5: 44–946.