Commit eeeda841 authored by Liam M. Healy's avatar Liam M. Healy
Browse files

Use _tsvd instead of _svd functions

Apparently, the linear least squares functions gsl_multifit_linear_svd
and gsl_multifit_wlinear_svd were replaced by
gsl_multifit_linear_tsvd and gsl_multifit_wlinear_tsvd respectively,
even though the original function names still exist. This fixes a
compilation problem.
parent 262a307d
;; Linear least squares, or linear regression ;; Linear least squares, or linear regression
;; Liam Healy <2008-01-21 12:41:46EST linear-least-squares.lisp> ;; Liam Healy <2008-01-21 12:41:46EST linear-least-squares.lisp>
;; Time-stamp: <2016-08-06 22:01:47EDT linear-least-squares.lisp> ;; Time-stamp: <2018-07-14 22:42:07EDT linear-least-squares.lisp>
;; ;;
;; Copyright 2008, 2009, 2010, 2011, 2012, 2013, 2016 Liam M. Healy ;; Copyright 2008, 2009, 2010, 2011, 2012, 2013, 2016, 2018 Liam M. Healy
;; Distributed under the terms of the GNU General Public License ;; Distributed under the terms of the GNU General Public License
;; ;;
;; This program is free software: you can redistribute it and/or modify ;; This program is free software: you can redistribute it and/or modify
...@@ -266,8 +266,14 @@ ...@@ -266,8 +266,14 @@
(covariance (default-covariance parameters-or-size)) (covariance (default-covariance parameters-or-size))
(workspace (default-lls-workspace observations parameters-or-size)) (workspace (default-lls-workspace observations parameters-or-size))
&aux (parameters (vdf parameters-or-size))) &aux (parameters (vdf parameters-or-size)))
("gsl_multifit_linear_svd" "gsl_multifit_wlinear_svd") ("gsl_multifit_linear_tsvd" "gsl_multifit_wlinear_tsvd")
((((mpointer model) :pointer) ((((mpointer model) :pointer)
((mpointer observations) :pointer)
(tolerance :double)
(rank (:pointer :sizet))
((mpointer parameters) :pointer)
((mpointer covariance) :pointer)
(chisq (:pointer :double))
((mpointer workspace) :pointer)) ((mpointer workspace) :pointer))
(((mpointer model) :pointer) (((mpointer model) :pointer)
((mpointer weight) :pointer) ((mpointer weight) :pointer)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment