diff options
| author | Alberto Ruiz <aruiz@um.es> | 2010-08-31 16:52:26 +0000 |
|---|---|---|
| committer | Alberto Ruiz <aruiz@um.es> | 2010-08-31 16:52:26 +0000 |
| commit | 4486e93da02c7ef9e1fdf785c88f78986048c332 (patch) | |
| tree | c0d84fce23a39a307fd12041fdd570be93aca15d /lib/Numeric/GSL | |
| parent | 0b48e6b34a1a4ec590f2d17833f713f42f5e0955 (diff) | |
refactoring norms
Diffstat (limited to 'lib/Numeric/GSL')
| -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) |