tmp <- condition(
ContinuousPrior(function(x) dunif(x, .2, .4), c(.2, .4)),
c(.3, .5)
)
bounds(tmp) # c(.3, .4)
tmp <- condition(PointMassPrior(c(0, .5), c(.3, .7)), c(-1, .25))
expectation(tmp, identity) # 0
Run the code above in your browser using DataLab