Bayesian_Sampler(
a_and_b = c(.4, .25),
b_and_not_a = c(.4, .25),
a_and_not_b = c(.1, .25),
not_a_and_not_b = c(.1, .25),
beta = 1,
N <- c(10, 12),
N2 <- c(10, 10)
)
Bayesian_Sampler(
a_and_b = c(0.05, .85),
b_and_not_a = c(.85, 0.05),
a_and_not_b = c(.05, 0.05),
not_a_and_not_b = c(0.05, 0.05),
beta = 1,
N = 5,
return="simulation"
)$a
Run the code above in your browser using DataLab