if (FALSE) {
# Bayesian beta-extended binomial method in 50 patient cohort at 10% level,
# expected toxicity probability of 20%
bb_rule = calc.rule.tite(n=50,p0=0.20,alpha=0.10,type="BB",param=c(2,8))
# Compute operating characteristics at toxicity probabilities of 20%, 25%, 30%, 35%, and 40%
OC.rule.tite(rule=bb_rule,ps=seq(0.2,0.4,0.05), MC =1000, tau=30,A=730, family = 'weibull', s = 2)
}
Run the code above in your browser using DataLab