# NOT RUN {
ess <- ExpectedSampleSize(Normal(), PointMassPrior(.4, 1))
power <- Power(Normal(), PointMassPrior(.4, 1))
# linear combination:
composite({ess - 50*power})
# control flow (e.g. for and while loops)
composite({
res <- 0
for (i in 1:3) {
res <- res + ess
}
res
})
# functional composition
composite({log(ess)})
cp <- ConditionalPower(Normal(), PointMassPrior(.4, 1))
composite({3*cp})
# }
Run the code above in your browser using DataLab