diff options
Diffstat (limited to 'lib/Numeric/GSL/Fitting.hs')
| -rw-r--r-- | lib/Numeric/GSL/Fitting.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Numeric/GSL/Fitting.hs b/lib/Numeric/GSL/Fitting.hs index b1f3a32..e5aa528 100644 --- a/lib/Numeric/GSL/Fitting.hs +++ b/lib/Numeric/GSL/Fitting.hs | |||
| @@ -109,7 +109,7 @@ err (model,deriv) dat vsol = zip sol errs where | |||
| 109 | sol = toList vsol | 109 | sol = toList vsol |
| 110 | c = max 1 (chi/sqrt (fromIntegral dof)) | 110 | c = max 1 (chi/sqrt (fromIntegral dof)) |
| 111 | dof = length dat - (rows cov) | 111 | dof = length dat - (rows cov) |
| 112 | chi = pnorm PNorm2 (fromList $ cost (resMs model) dat sol) | 112 | chi = norm2 (fromList $ cost (resMs model) dat sol) |
| 113 | js = fromLists $ jacobian (resDs deriv) dat sol | 113 | js = fromLists $ jacobian (resDs deriv) dat sol |
| 114 | cov = inv $ trans js <> js | 114 | cov = inv $ trans js <> js |
| 115 | errs = toList $ scalar c * sqrt (takeDiag cov) | 115 | errs = toList $ scalar c * sqrt (takeDiag cov) |