From 35a7f3355611cd20994f36b43acbd7413e09f558 Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Thu, 29 Oct 2015 12:57:43 +0100 Subject: bump versions, fix tests, thanks --- packages/tests/src/Numeric/LinearAlgebra/Tests.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'packages/tests/src/Numeric') 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 --------------------------------------------------------------------- -randomTestGaussian = c :~1~: snd (meanCov dat) where +randomTestGaussian = (unSym c) :~3~: unSym (snd (meanCov dat)) + where a = (3><3) [1,2,3, 2,4,0, -2,2,1] @@ -140,7 +141,8 @@ randomTestGaussian = c :~1~: snd (meanCov dat) where c = mTm a dat = gaussianSample 7 (10^6) m c -randomTestUniform = c :~1~: snd (meanCov dat) where +randomTestUniform = c :~2~: unSym (snd (meanCov dat)) + where c = diag $ 3 |> map ((/12).(^2)) [1,2,3] dat = uniformSample 7 (10^6) [(0,1),(1,3),(3,6)] -- cgit v1.2.3