targetICC <- seq(0.05, 0.20, by = .01)
iccRE(targetICC, "poisson", lambda = 30)
iccRE(targetICC, "binary")
iccRE(targetICC, "normal", varTotal = 100)
iccRE(targetICC, "normal", varWithin = 100)
iccRE(targetICC, "gamma", disp = .5)
iccRE(targetICC, "negBinomial", lambda = 40, disp = .5)
Run the code above in your browser using DataLab