# NOT RUN {
design <- TwoStageDesign(
n1 = 25,
c1f = 0,
c1e = 2.5,
n2 = 50,
c2 = 1.96,
order = 7L
)
cp <- ConditionalPower(Normal(), PointMassPrior(.1, 1.0))
ep <- expected(cp)
evaluate(ep, design) # .06081054
# }
Run the code above in your browser using DataLab