target <- 0.47 / 1.5
p.true <- matrix(c(0.83, 0.12, 0.04, 0.01,
0.75, 0.15, 0.07, 0.03,
0.62, 0.18, 0.11, 0.09,
0.51, 0.19, 0.14, 0.16,
0.34, 0.16, 0.15, 0.35,
0.19, 0.11, 0.11, 0.59), ncol = 4, byrow = TRUE)
score <- seq(0, 1.5,by = 0.5) / 1.5
ncohort <- 10
cohortsize <- 3
ntrial <- 4000
get_oc_QuasiBOIN(target = target, p.true = p.true, score = score, ncohort = ncohort,
cohortsize = cohortsize, ntrial = ntrial)
Run the code above in your browser using DataLab