# Find the optimal testing configuration for
# non-informative two-stage hierarchical testing.
res1 <- OTC1(algorithm = "D2", p = 0.01, Se = 0.99, Sp = 0.99,
group.sz = 2:100, obj.fn = c("ET", "MAR", "GR1"),
weights = matrix(data = c(1,1), nrow = 1, ncol = 2))
ExpTests(res1)
Run the code above in your browser using DataLab