# NOT RUN {
#To calculate the effect size and ICC based on empirical data
MRT3 <- data('MRT3')
# Effect size for MRT3arm
#
# f1 f2
# -0.6214215 -0.355098
#
# NOTE: f1 for treatment main effect;
# f2 for comparing the two treatments.
# URL: http://psychstat.org/mrt3arm
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab