library(nlme)
library(r2glmm)
data(Orthodont)
# Linear mixed model
lmemod = lme(distance ~ age*Sex, random = ~1|Subject, data = Orthodont)
r2 = r2beta(model=lmemod,partial=TRUE,method='sgv')
plot(x=r2)
Run the code above in your browser using DataLab