summaryrefslogtreecommitdiff
path: root/packages/tests/src/Numeric
diff options
context:
space:
mode:
authorAlberto Ruiz <aruiz@um.es>2015-10-29 12:57:43 +0100
committerAlberto Ruiz <aruiz@um.es>2015-10-29 12:57:43 +0100
commit35a7f3355611cd20994f36b43acbd7413e09f558 (patch)
treee3a059183477ee2fc71e3a908c561332a403bcef /packages/tests/src/Numeric
parent3e5f71c9d711fabd0e0c45fc25c58bf34f88fe3b (diff)
bump versions, fix tests, thanks
Diffstat (limited to 'packages/tests/src/Numeric')
-rw-r--r--packages/tests/src/Numeric/LinearAlgebra/Tests.hs6
1 files changed, 4 insertions, 2 deletions
diff --git a/packages/tests/src/Numeric/LinearAlgebra/Tests.hs b/packages/tests/src/Numeric/LinearAlgebra/Tests.hs
index 56546b6..d9cc3b6 100644
--- a/packages/tests/src/Numeric/LinearAlgebra/Tests.hs
+++ b/packages/tests/src/Numeric/LinearAlgebra/Tests.hs
@@ -132,7 +132,8 @@ mbCholTest = utest "mbCholTest" (ok1 && ok2) where
132 132
133--------------------------------------------------------------------- 133---------------------------------------------------------------------
134 134
135randomTestGaussian = c :~1~: snd (meanCov dat) where 135randomTestGaussian = (unSym c) :~3~: unSym (snd (meanCov dat))
136 where
136 a = (3><3) [1,2,3, 137 a = (3><3) [1,2,3,
137 2,4,0, 138 2,4,0,
138 -2,2,1] 139 -2,2,1]
@@ -140,7 +141,8 @@ randomTestGaussian = c :~1~: snd (meanCov dat) where
140 c = mTm a 141 c = mTm a
141 dat = gaussianSample 7 (10^6) m c 142 dat = gaussianSample 7 (10^6) m c
142 143
143randomTestUniform = c :~1~: snd (meanCov dat) where 144randomTestUniform = c :~2~: unSym (snd (meanCov dat))
145 where
144 c = diag $ 3 |> map ((/12).(^2)) [1,2,3] 146 c = diag $ 3 |> map ((/12).(^2)) [1,2,3]
145 dat = uniformSample 7 (10^6) [(0,1),(1,3),(3,6)] 147 dat = uniformSample 7 (10^6) [(0,1),(1,3),(3,6)]
146 148