# NOT RUN {
# define type one error rate and power
toer <- Power(Normal(), PointMassPrior(0.0, 1))
power <- Power(Normal(), PointMassPrior(0.4, 1))
# create constrain collection
subject_to(
toer <= 0.025,
power >= 0.9
)
# }
Run the code above in your browser using DataLab