From 9f60542106106f5e45824dff9a8bee58e8d3520f Mon Sep 17 00:00:00 2001 From: AJ Rossini Date: Sat, 11 Jul 2009 13:41:57 +0200 Subject: [PATCH] typos, replaced non-existant API with one that has been implemented. Signed-off-by: AJ Rossini --- src/stat-models/regression.lisp | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/src/stat-models/regression.lisp b/src/stat-models/regression.lisp index 1381cc0..5c81605 100644 --- a/src/stat-models/regression.lisp +++ b/src/stat-models/regression.lisp @@ -151,7 +151,7 @@ with LAPACK's dpotri routine, factorizing with dpotrf. (xtxinv m1)) " (check-type x matrix-like) - (minv-cholesky (m* (transpose myx) myx))) + (minv-cholesky (m* (transpose x) x))) #| (let ((myx (if intercept @@ -241,11 +241,10 @@ Returns a regression model object." :included included :weights wgts :estimates (first (lm (design-matrix model) - (response-variable model) + (dependent-response model) :intercept (interceptp model))) :estimates-covariance-matrix - (xtxinv (design-matrix model) - :intercept (interceptp model)) + (xtxinv (design-matrix model)) :doc docs))) result)) @@ -258,7 +257,7 @@ Returns a regression model object." (defmethod print-object ((obj regression-model-class) stream) "Need better formatting and output -- clearly this is a WRONG EXAMPLE." (print-unreadable-object (obj stream :type t) - (format stream "Response: ~%~A~%" (response-variable obj)) + (format stream "Response: ~%~A~%" (dependent-response obj)) (format stream "Design: ~%~A~%" (design-matrix obj)) (format stream "Covariates: ~%~A~%" (covariate-names obj)) (format stream "Doc: ~%~A~%" (doc-string obj)))) -- 2.11.4.GIT