Monad-Bayes

ヒストグラム図の生成とかできる

code:hs

-- convert the stream to a list, taking only the first 100 steps

toList prod = P.toListM (prod >-> P.take 100)

trueVectors <- sampleIOfixed $ toList prior

plot

(zip

(fmap (\v -> (v V.! 0, v V.! 1)) $ trueVectors)

(replicate 100 (T.pack "Latent")))