# NOT RUN {
succ_ia_betabinom_one( N=40, n=30, x=25,
null.value=0.6, alternative="greater",
succ.crit = "trial", alpha.final = 0.016,
a = 1, b=1)
succ_ia_betabinom_one( N=40, n=30, x=25,
null.value=0.6, alternative="greater", test="exact",
succ.crit = "trial", alpha.final = 0.016,
a = 1, b=1)
succ_ia_betabinom_one( N=40, n=30, x=15,
null.value=0.6, alternative="greater",
succ.crit = "clinical", clin.succ.threshold =0.5,
a = 1, b=1)
# }
Run the code above in your browser using DataLab