diff options
| author | Alberto Ruiz <aruiz@um.es> | 2014-05-21 09:57:03 +0200 |
|---|---|---|
| committer | Alberto Ruiz <aruiz@um.es> | 2014-05-21 09:57:03 +0200 |
| commit | e07c3dee7235496b71a89233106d93f6cc94ada1 (patch) | |
| tree | 1ad29c3fc93ee076ad68e3ee759c9a3357f9cd5b /packages/hmatrix/src/Numeric/GSL/Fitting.hs | |
| parent | 92de588b82945bb251a056c34a8ef0c00cb00e5a (diff) | |
Numeric.Container and Numeric.LinearAlgebra moved to base
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 | ||