# \donttest{
design <- GBOP2_minSS_singleE(
design = "optimal",
unified.u = 1,
nlooks = 1,
p0 = 0.2,
p1 = 0.4,
err1 = 0.05,
minPower = 0.8,
weight = 1,
maxPatients = 25,
Nmin_cohort1 = 10,
Nmin_increase = 5,
pso_method = "default",
nParallel = 1,
seed = 1024,
nSwarm = 64,
maxIter = 200
)
summary(design)
# }
Run the code above in your browser using DataLab