library(lme4)
fit <- lmer(Reaction ~ Days + (Days | Subject), sleepstudy)
# icc
icc(fit)
# all random effect variance components
re_var(fit)
# just the rand. slope-intercept covariance
get_re_var(fit, "tau.01")
sleepstudy$mygrp <- sample(1:45, size = 180, replace = TRUE)
fit <- lmer(Reaction ~ Days + (1 | mygrp) + (Days | Subject), sleepstudy)
get_re_var(fit, "rho.01")
Run the code above in your browser using DataLab