# NOT RUN {
alpha1 <- 0.15
alpha2 <- 0.10
beta <- 0.15
pc <- 0.25
pe <- pc + 0.20
# calculate optimal two-stage design without using alpha-spending
opt.design(alpha1, alpha2, beta, pc, pe, stage=2)
# }
# NOT RUN {
# calculate optimal two-stage design with Pocock-like spending function
opt.design(alpha1, alpha2, beta, pc, pt, stage = 2, sf.param = 1)
# calculate optimal three-stage design with =O<U+00E2><U+20AC><U+2122>Brien-Fleming like spending function
opt.design(alpha1, alpha2, beta, pc, pt, stage = 3, sf.param = -4)
# }
Run the code above in your browser using DataLab