# specify new trial data
new_trial_data <- create_new_trial_data(n_total = 30, est = 1.5, se = 2.1)
# read MAP prior data
map_prior <- load_tipmap_data("tipmapPrior.rds")
# read posterior data
posterior <- load_tipmap_data("tipPost.rds")
tip_dat <- create_tipmap_data(
new_trial_data = new_trial_data,
posterior = posterior,
map_prior = map_prior
)
Run the code above in your browser using DataLab