summaryrefslogtreecommitdiff
path: root/packages/tests/src/Numeric/GSL/Tests.hs
diff options
context:
space:
mode:
authorAlberto Ruiz <aruiz@um.es>2015-04-10 10:00:43 +0200
committerAlberto Ruiz <aruiz@um.es>2015-04-10 10:00:43 +0200
commit3aa140213de434ab6ee6736142fd54c967f34ee9 (patch)
treeec0c23703a1a19d2f81c19abd74bb8bc7bc16683 /packages/tests/src/Numeric/GSL/Tests.hs
parentfde36f1224d4b87a32019bd9519d0aba4315792b (diff)
fix tests
Diffstat (limited to 'packages/tests/src/Numeric/GSL/Tests.hs')
-rw-r--r--packages/tests/src/Numeric/GSL/Tests.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/packages/tests/src/Numeric/GSL/Tests.hs b/packages/tests/src/Numeric/GSL/Tests.hs
index 2e225b6..e5d205d 100644
--- a/packages/tests/src/Numeric/GSL/Tests.hs
+++ b/packages/tests/src/Numeric/GSL/Tests.hs
@@ -42,7 +42,7 @@ fittingTest = utest "levmar" (ok1 && ok2)
42 sol = fst $ fitModel 1E-4 1E-4 20 (expModel, expModelDer) dat [1,0,0] 42 sol = fst $ fitModel 1E-4 1E-4 20 (expModel, expModelDer) dat [1,0,0]
43 43
44 ok1 = and (zipWith f sols [5,0.1,1]) where f (x,d) r = abs (x-r)<2*d 44 ok1 = and (zipWith f sols [5,0.1,1]) where f (x,d) r = abs (x-r)<2*d
45 ok2 = norm2 (fromList (map fst sols) - fromList sol) < 1E-5 45 ok2 = norm_2 (fromList (map fst sols) - fromList sol) < 1E-5
46 46
47--------------------------------------------------------------------- 47---------------------------------------------------------------------
48 48