# New S3 interface
boin <- design_boin(pT = 0.25, EI = c(0.15, 0.35), npts = 12)
i3 <- design_i3plus3(pT = 0.25, EI = c(0.2, 0.3), npts = 12)
# \donttest{
# Generate decision tables
decision_table(boin, i3)
# }
# Legacy interface still works
# \donttest{
decision_table(
BOIN = get_decision_boin(pT = 0.25, EI = c(0.15, 0.35), npts = 12),
`i3+3` = get_decision_i3plus3(pT = 0.25, EI = c(0.2, 0.3), npts = 12)
)
# }
Run the code above in your browser using DataLab