From cf3c788f0c44577ac1a5365e8154200b53a36409 Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Tue, 27 May 2014 10:41:40 +0200 Subject: static dimensions, cont. --- packages/gsl/src/Numeric/GSL/Fitting.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'packages/gsl/src/Numeric/GSL/Fitting.hs') 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 dof = length dat - (rows cov) chi = norm2 (fromList $ cost (resMs model) dat sol) js = fromLists $ jacobian (resDs deriv) dat sol - cov = inv $ trans js <.> js + cov = inv $ trans js <> js errs = toList $ scalar c * sqrt (takeDiag cov) -- cgit v1.2.3