library(lme4)
fit <- lmer(Reaction ~ Days + (Days | Subject), sleepstudy)
icc(fit)
sleepstudy$mygrp <- sample(1:45, size = 180, replace = T)
fit <- lmer(Reaction ~ Days + (1|mygrp) + (Days | Subject), sleepstudy)
icc(fit)
Run the code above in your browser using DataLab