diff options
| author | Alberto Ruiz <aruiz@um.es> | 2014-05-27 10:41:40 +0200 |
|---|---|---|
| committer | Alberto Ruiz <aruiz@um.es> | 2014-05-27 10:41:40 +0200 |
| commit | cf3c788f0c44577ac1a5365e8154200b53a36409 (patch) | |
| tree | d667ea10609e74b69b11309bb59b7e000b240a92 /packages/gsl | |
| parent | 365e2435e71de10ebe849acac5a107b6f43817c4 (diff) | |
static dimensions, cont.
Diffstat (limited to 'packages/gsl')
| -rw-r--r-- | packages/gsl/src/Numeric/GSL/Fitting.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/packages/gsl/src/Numeric/GSL/Fitting.hs b/packages/gsl/src/Numeric/GSL/Fitting.hs index 93fb281..0a92373 100644 --- a/packages/gsl/src/Numeric/GSL/Fitting.hs +++ b/packages/gsl/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 | ||