# NOT RUN {
# Two cohorts, summary data only
scqe_2cohort_sum <- scqe(untr_pre = 200,untr_post = 150,tr_post = 50,
tr_pre=0, Y_tr_post = 20, Y_untr_post = 1,
Y_tr_pre=0, Y_untr_pre = 5,min_delta = 0.1,
max_delta = 1)
plot(scqe_2cohort_sum)
summary(scqe_2cohort_sum)
# }
Run the code above in your browser using DataLab