deanie

An embedded probabilistic programming language.
git clone git://git.jtobin.io/deanie.git
Log | Files | Refs | README | LICENSE

BetaBernoulli.hs (292B)

      1 
      2 module Model.BetaBernoulli (
      3     betaBernoulli
      4   , observations
      5   ) where
      6 
      7 import Deanie
      8 
      9 betaBernoulli :: Double -> Double -> Program Bool
     10 betaBernoulli a b = do
     11   p <- beta a b
     12   bernoulli p
     13 
     14 observations :: [Bool]
     15 observations = [True, True, False, True, False, False, True, True, True]
     16