powered by
lme
varcomp(x, scale = FALSE, cum = FALSE)
varcomp
data(carnivora) library(nlme) m <- lme(log10(SW) ~ 1, random = ~ 1|Order/SuperFamily/Family/Genus, data=carnivora) v <- varcomp(m, TRUE, TRUE) plot(v)
Run the code above in your browser using DataLab