From 741b3e3f1035f3b35b267e5b2c9bfc97190a266f Mon Sep 17 00:00:00 2001 From: AJ Rossini Date: Mon, 8 Dec 2008 09:40:39 +0100 Subject: [PATCH] still need to get regression-model done. I'm wavering between new approach and fixing the old. Discipline, Tony! --- src/stat-models/regression.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/stat-models/regression.lisp b/src/stat-models/regression.lisp index 6ad085b..782d5b9 100644 --- a/src/stat-models/regression.lisp +++ b/src/stat-models/regression.lisp @@ -83,9 +83,10 @@ Example (data are in file absorbtion.lsp in the sample data directory): (send m :help) (send m :plot-residuals)" (let ((x (cond ((typep x 'matrix-like) x) - ((or (typep x 'vector) + ((or (typep x 'sequence) (and (consp x) - (numberp (car x))) (make-vector (length x) :initial-contents x))) + (numberp (car x))) + (make-vector (length x) :initial-contents x))) (t x))) ;; actually, might should barf. (y (cond ((typep y 'vector-like) y) -- 2.11.4.GIT