diff options
Diffstat (limited to 'packages/hmatrix/src/Numeric/GSL/Fitting.hs')
-rw-r--r-- | packages/hmatrix/src/Numeric/GSL/Fitting.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/packages/hmatrix/src/Numeric/GSL/Fitting.hs b/packages/hmatrix/src/Numeric/GSL/Fitting.hs index 0a92373..93fb281 100644 --- a/packages/hmatrix/src/Numeric/GSL/Fitting.hs +++ b/packages/hmatrix/src/Numeric/GSL/Fitting.hs | |||
@@ -116,7 +116,7 @@ err (model,deriv) dat vsol = zip sol errs where | |||
116 | dof = length dat - (rows cov) | 116 | dof = length dat - (rows cov) |
117 | chi = norm2 (fromList $ cost (resMs model) dat sol) | 117 | chi = norm2 (fromList $ cost (resMs model) dat sol) |
118 | js = fromLists $ jacobian (resDs deriv) dat sol | 118 | js = fromLists $ jacobian (resDs deriv) dat sol |
119 | cov = inv $ trans js <> js | 119 | cov = inv $ trans js <.> js |
120 | errs = toList $ scalar c * sqrt (takeDiag cov) | 120 | errs = toList $ scalar c * sqrt (takeDiag cov) |
121 | 121 | ||
122 | 122 | ||