set.seed(123)
# Two-sample case
dec_tbl <- calc_decision_rules(
n = cbind(seq(5, 15, 5), seq(5, 15, 5)),
N = c(15, 15),
theta = 0.86,
ppp = 0.2,
p0 = NULL,
direction = "greater",
delta = 0,
S = 50
)
plot(dec_tbl, plotly = FALSE)
Run the code above in your browser using DataLab