-#Simulation of new trial
-##Note: This step should not be required, as we provide summary measures directly from the new trial
-data_emax <- simulateData(
- n_patients = n_patients,
- dose_levels = dose_levels,
- sd = attr(prior_list, "sd_tot"),
- mods = mods,
- true_model = "emax")
-
-posterior <- getPosterior(prior=prior_list,data=data_emax,
+posterior <- getPosterior(prior=prior_list,
mu_hat = new_trial$rslt,
sd_hat = new_trial$se)