diff options
Diffstat (limited to 'packages/tests/src/Numeric/GSL')
-rw-r--r-- | packages/tests/src/Numeric/GSL/Tests.hs | 2 |
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 | ||