# Table 3 in Lin et al.
x <- boin12_rds(
sample_sizes = c(0, 3, 6, 9),
phi_t = 0.35,
phi_e = 0.25,
u1 = 100,
u2 = 40,
u3 = 60,
u4 = 0,
c_t = 0.95,
c_e = 0.9,
prior_alpha = 1,
prior_beta = 1
)
Run the code above in your browser using DataLab