From 43368038ec99d6faa1bf4cae76219ee13a238bb9 Mon Sep 17 00:00:00 2001 From: AJ Rossini Date: Tue, 6 Nov 2007 08:50:58 +0100 Subject: [PATCH] regression examples, and use of bind to figure out. --- ls-demo.lisp | 25 ++++++++++++++++++------- 1 file changed, 18 insertions(+), 7 deletions(-) diff --git a/ls-demo.lisp b/ls-demo.lisp index 7611f2f..9b91924 100644 --- a/ls-demo.lisp +++ b/ls-demo.lisp @@ -220,25 +220,18 @@ my-chol-decomp-test (describe (run-tests :suite 'lisp-stat)) (describe (run-tests :suite 'lisp-stat-testsupport)) - (run-tests :suite 'lisp-stat-probdistn) (describe (run-tests :suite 'lisp-stat-probdistn)) - - - (run-tests :suite 'lisp-stat-spec-fns) (describe (run-tests :suite 'lisp-stat-spec-fns)) - (find-testsuite 'lisp-stat-lin-alg) (testsuite-tests 'lisp-stat-lin-alg) (run-tests :suite 'lisp-stat-lin-alg) (describe (run-tests :suite 'lisp-stat-lin-alg)) - ;;; Data Analysis test - (in-package :ls-user) (def iron (list 61 175 111 124 130 173 169 169 160 224 257 333 199)) @@ -253,6 +246,14 @@ absorbtion (standard-deviation absorbtion) (interquartile-range absorbtion) +;;; How do I make these work? +(bind-columns aluminum iron) +(apply #'bind-columns (list aluminum iron)) +(bind-columns #2a((1 2)(3 4)) #(5 6)) + +(sequencep aluminum) (sequencep iron) +(matrixp iron) + *variables* @@ -261,3 +262,13 @@ absorbtion (variables) +(defvar fit1 nil) +(setf fit1 (regression-model absorbtion iron)) +(send fit1 :display) +(send fit1 :residuals) + + + + +(def m (regression-model (list iron aluminum) absorbtion)) +(send m :help) (send m :plot-residuals) -- 2.11.4.GIT