# Simulate data
df <- simulateData(n.entity = 50, n.obs = 100, mu = .2, r = .7)
# Calculate reliability
out <- calcSSR(df = df, entity = 'entity', y = 'y', ctrRel = controlRel(n.resamples = 10))
out$est.PSSR
# Distribution of estimates obtained from the permutation sampling.
hist(out$icc)
summary(out$icc)
Run the code above in your browser using DataLab