diff options
author | Alberto Ruiz <aruiz@um.es> | 2015-10-29 12:57:43 +0100 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2015-10-29 12:57:43 +0100 |
commit | 35a7f3355611cd20994f36b43acbd7413e09f558 (patch) | |
tree | e3a059183477ee2fc71e3a908c561332a403bcef /packages/tests/src/Numeric | |
parent | 3e5f71c9d711fabd0e0c45fc25c58bf34f88fe3b (diff) |
bump versions, fix tests, thanks
Diffstat (limited to 'packages/tests/src/Numeric')
-rw-r--r-- | packages/tests/src/Numeric/LinearAlgebra/Tests.hs | 6 |
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 | ||
135 | randomTestGaussian = c :~1~: snd (meanCov dat) where | 135 | randomTestGaussian = (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 | ||
143 | randomTestUniform = c :~1~: snd (meanCov dat) where | 144 | randomTestUniform = 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 | ||