# create vector containing data on new trial
new_trial_data <- create_new_trial_data(
n_total = 30,
est = 1.27,
se = 0.95
)
# read MAP prior created by RBesT
map_prior <- load_tipmap_data("tipmapPrior.rds")
# create posterior data
if (FALSE) {
posterior_data <- create_posterior_data(
map_prior = map_prior,
new_trial_data = new_trial_data,
sigma = 12
)
}
Run the code above in your browser using DataLab