From ef7283f6254422204c8f68c4cdde0094003e127f Mon Sep 17 00:00:00 2001 From: Patrik Jansson Date: Wed, 28 Oct 2015 22:00:21 +0100 Subject: Following through the change of type in meanCov to the test and to gaussianSamle. Not tested. --- packages/tests/src/Numeric/LinearAlgebra/Tests.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'packages/tests/src') diff --git a/packages/tests/src/Numeric/LinearAlgebra/Tests.hs b/packages/tests/src/Numeric/LinearAlgebra/Tests.hs index 4b631cf..56546b6 100644 --- a/packages/tests/src/Numeric/LinearAlgebra/Tests.hs +++ b/packages/tests/src/Numeric/LinearAlgebra/Tests.hs @@ -137,7 +137,7 @@ randomTestGaussian = c :~1~: snd (meanCov dat) where 2,4,0, -2,2,1] m = 3 |> [1,2,3] - c = a <> tr a + c = mTm a dat = gaussianSample 7 (10^6) m c randomTestUniform = c :~1~: snd (meanCov dat) where @@ -944,5 +944,3 @@ luBench_2 = do luBenchN_2 luSolve' luPacked' 500 (5::R) "luSolve'.luPacked' Double " luBenchN_2 luSolve' luPacked' 500 (5::Mod 9973 I) "luSolve'.luPacked' I mod 9973" luBenchN_2 luSolve' luPacked' 500 (5::Mod 9973 Z) "luSolve'.luPacked' Z mod 9973" - - -- cgit v1.2.3