From 51a12069754fba6c8c2df7ad94d051e3f65ca624 Mon Sep 17 00:00:00 2001 From: AJ Rossini Date: Sat, 5 Jul 2008 19:09:30 +0200 Subject: [PATCH] fixed again -- but simple multivar linear regression broken. --- regression.lsp | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/regression.lsp b/regression.lsp index 5bcab0d..3563911 100644 --- a/regression.lsp +++ b/regression.lsp @@ -256,9 +256,8 @@ estimates." (when (and new-y (or (matrixp new-y) (typep new-y 'sequence))) - (let ((mat-y (coerce-seq-to-1d-col-matrix new-y))) - (setf (slot-value 'y) new-y) - (send self :needs-computing t))) + (setf (slot-value 'y) new-y) + (send self :needs-computing t)) (slot-value 'y)) (defmeth regression-model-proto :intercept (&optional (val nil set)) -- 2.11.4.GIT