diff options
author | Alberto Ruiz <aruiz@um.es> | 2015-10-29 11:39:46 +0100 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2015-10-29 11:39:46 +0100 |
commit | 3e5f71c9d711fabd0e0c45fc25c58bf34f88fe3b (patch) | |
tree | db5277cfc055cbe87aab1b06abc75d52d7d4b0ab /packages/tests/src/Numeric/LinearAlgebra/Tests.hs | |
parent | ebf8ce6595c6d11bcc3662e84a32822c2eaaa77a (diff) | |
parent | 83f6998b935829a54a5737632af18279adc7665a (diff) |
Merge pull request #157 from patrikja/master
meanCov type update to use Herm instead of Matrix
Diffstat (limited to 'packages/tests/src/Numeric/LinearAlgebra/Tests.hs')
-rw-r--r-- | packages/tests/src/Numeric/LinearAlgebra/Tests.hs | 4 |
1 files changed, 1 insertions, 3 deletions
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 | |||
137 | 2,4,0, | 137 | 2,4,0, |
138 | -2,2,1] | 138 | -2,2,1] |
139 | m = 3 |> [1,2,3] | 139 | m = 3 |> [1,2,3] |
140 | c = a <> tr a | 140 | c = mTm a |
141 | dat = gaussianSample 7 (10^6) m c | 141 | dat = gaussianSample 7 (10^6) m c |
142 | 142 | ||
143 | randomTestUniform = c :~1~: snd (meanCov dat) where | 143 | randomTestUniform = c :~1~: snd (meanCov dat) where |
@@ -944,5 +944,3 @@ luBench_2 = do | |||
944 | luBenchN_2 luSolve' luPacked' 500 (5::R) "luSolve'.luPacked' Double " | 944 | luBenchN_2 luSolve' luPacked' 500 (5::R) "luSolve'.luPacked' Double " |
945 | luBenchN_2 luSolve' luPacked' 500 (5::Mod 9973 I) "luSolve'.luPacked' I mod 9973" | 945 | luBenchN_2 luSolve' luPacked' 500 (5::Mod 9973 I) "luSolve'.luPacked' I mod 9973" |
946 | luBenchN_2 luSolve' luPacked' 500 (5::Mod 9973 Z) "luSolve'.luPacked' Z mod 9973" | 946 | luBenchN_2 luSolve' luPacked' 500 (5::Mod 9973 Z) "luSolve'.luPacked' Z mod 9973" |
947 | |||
948 | |||