target <- 0.3; mineff<- 0.3
txs <- c(3, 1, 7, 11, 26); tys <- c(0, 0, 0, 0, 6); tns <- c(6, 3, 12, 17, 36)
prior.para = list(alp.prior.eff = 0.5, bet.prior.eff = 0.5)
effearly.stop <- 0.95
result <- CFOeff.selectobd(target, txs, tys, tns, prior.para, mineff, effearly.stop)
summary(result)
# \donttest{
##Low efficacy
target <- 0.3; mineff<- 0.3
txs = c(0, 0, 0, 0, 0); tys = c(2, 1, 1, 1, 6); tns = c(36, 23, 22, 27, 36)
prior.para = list(alp.prior.eff = 0.5, bet.prior.eff = 0.5)
effearly.stop <- 0.95
result <- CFOeff.selectobd(target, txs, tys, tns, prior.para, mineff, effearly.stop)
summary(result)
# }
# \donttest{
##High toxicity
target <- 0.3; mineff<- 0.3
txs = c(3, 1, 7, 11, 26); tys = c(36, 23, 22, 27, 36); tns = c(36, 23, 22, 27, 36)
prior.para = list(alp.prior.eff = 0.5, bet.prior.eff = 0.5)
effearly.stop <- 0.95
result <- CFOeff.selectobd(target, txs, tys, tns, prior.para, mineff, effearly.stop)
summary(result)
# }
Run the code above in your browser using DataLab