From a6d2aa3f554cc73c07803bb2f4973fa213f4eb0a Mon Sep 17 00:00:00 2001 From: AJ Rossini Date: Fri, 5 Dec 2008 07:55:37 +0100 Subject: [PATCH] map to lisp-matrix supplemental ops (column-list -> list-of-columns). --- src/stat-models/regression.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/stat-models/regression.lisp b/src/stat-models/regression.lisp index bfef870..1cc4166 100644 --- a/src/stat-models/regression.lisp +++ b/src/stat-models/regression.lisp @@ -196,7 +196,7 @@ Recomputes the estimates. For internal use by other messages" (p (- (matrix-dimension m 0) 1)) (tss (mref m p p)) (tol (* 0.001 - (reduce #'* (mapcar #'standard-deviation (column-list x))))) + (reduce #'* (mapcar #'standard-deviation (list-of-columns x))))) (sweep-result (if intercept (sweep-operator m (iseq 1 n) tol) -- 2.11.4.GIT