diff options
| author | Alberto Ruiz <aruiz@um.es> | 2015-04-10 10:00:43 +0200 |
|---|---|---|
| committer | Alberto Ruiz <aruiz@um.es> | 2015-04-10 10:00:43 +0200 |
| commit | 3aa140213de434ab6ee6736142fd54c967f34ee9 (patch) | |
| tree | ec0c23703a1a19d2f81c19abd74bb8bc7bc16683 /packages/tests/src/Numeric/GSL | |
| parent | fde36f1224d4b87a32019bd9519d0aba4315792b (diff) | |
fix tests
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 | ||