# NOT RUN {
paras <- study_parameters(n1 = 11,
n2 = 30,
n3 = 3,
T_end = 10,
icc_pre_subject = 0.5,
icc_pre_cluster = 0,
icc_slope = c(0.01,0.05, 0.1),
var_ratio = 0.02)
get_DEFT(paras)
# }
Run the code above in your browser using DataLab