# Create design specifications
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)
# Generate decision tables
decision_boin <- get_decision(boin)
decision_i3 <- get_decision(i3)
Run the code above in your browser using DataLab