commit25747f9a09c03cfd4c3c6d53b4abaa11ce72b258parentbf9df624d63f741d7b4bec222969a6e9ac8dbb21Author:Jared Tobin <jared@jtobin.ca>Date:Sat, 19 Oct 2013 18:15:19 +1300 Replace mult with addition in basic example.Diffstat:

M | tests/Test.hs | | | 13 | ++----------- |

1 file changed, 2 insertions(+), 11 deletions(-)diff --git a/tests/Test.hs b/tests/Test.hs@@ -1,13 +1,4 @@ --- Simple example that demonstrates some measure-foo. --- --- Create a measure from a standard normal pdf, and another from a collection of --- samples drawn from an exponential distribution. --- --- Push trigonometric functions on each and convolute the results. --- --- Push an exponential function on that, and calculate the mean of the resulting --- distribution. --- +-- Simple examples that demonstrate some measure-foo. import Control.Monad import Measurable @@ -29,7 +20,7 @@ main = do let mu = fromDensity standardNormal nu = fromObservations expSamples - rho = (push cos mu) * (push sin nu) + rho = (push cos mu) + (push sin nu) eta = push exp rho putStrLn $ "mean of normal samples (should be around 0): " ++