From 08bfbf5ff0e3cfc09c2bf677ac877e770de44ab8 Mon Sep 17 00:00:00 2001
From: AJ Rossini <blindglobe@gmail.com>
Date: Mon, 3 Nov 2008 08:18:54 +0100
Subject: [PATCH] redoing dev style to be more test centric, from lessons
 learned with lisp-matrix. examples moved more to ls-demo.

---
 TODO.lisp    | 16 ++++++----------
 ls-demo.lisp | 12 +++++++++++-
 2 files changed, 17 insertions(+), 11 deletions(-)

diff --git a/TODO.lisp b/TODO.lisp
index b84c551..96a7875 100644
--- a/TODO.lisp
+++ b/TODO.lisp
@@ -1,6 +1,6 @@
 ;;; -*- mode: lisp -*-
 
-;;; Time-stamp: <2008-10-31 17:34:29 tony>
+;;; Time-stamp: <2008-11-02 17:54:25 tony>
 ;;; Creation:   <2008-09-08 08:06:30 tony>
 ;;; File:       TODO.lisp
 ;;; Author:     AJ Rossini <blindglobe@gmail.com>
@@ -17,13 +17,14 @@
 ;;; SET UP
 
 (in-package :cl-user)
+;;(asdf:oos 'asdf:compile-op 'lift :force t)
 ;;(asdf:oos 'asdf:load-op 'lift)
 ;;(asdf:oos 'asdf:load-op 'lispstat)
 
 (in-package :lisp-stat-unittests)
 (describe (run-tests :suite 'lisp-stat-ut))
 (run-tests :suite 'lisp-stat-ut)
-
+;; tests = 50, failures = 6 , errors = 0
 (in-package :ls-user)
 
 ;;; Example: currently not relevant, yet
@@ -34,6 +35,7 @@
   :suite 'lispstat-regression))
 |#
 
+
 (defvar m nil "holding variable.")
 (def m (regression-model (list iron aluminum) absorbtion :print nil))
 (send m :compute)
@@ -43,15 +45,9 @@
 ;;; FIXME
 
 ;; need to get multiple-linear regression working (simple linear regr
-;; works). 
+;; works)... to do this, we need to redo the whole numeric structure,
+;; I'm keeping these in as example of brokenness...
 
 (send m :basis) ;; this should be positive?
 (send m :coef-estimates)
 
-(send m :display)
-(def m (regression-model (bind-columns iron aluminum) absorbtion))
-(send m :help)
-(send m :help :display)
-(send m :help :basis)
-
-(send m :plot-residuals)
diff --git a/ls-demo.lisp b/ls-demo.lisp
index 1287084..79427b2 100644
--- a/ls-demo.lisp
+++ b/ls-demo.lisp
@@ -3,7 +3,7 @@
 ;;; See COPYRIGHT file for any additional restrictions (BSD license).
 ;;; Since 1991, ANSI was finally finished.  Edited for ANSI Common Lisp. 
 
-;;; Time-stamp: <2008-09-09 08:15:07 tony>
+;;; Time-stamp: <2008-11-02 11:12:24 tony>
 ;;; Creation:   sometime in 2006...
 ;;; File:       ls-demo.lisp
 ;;; Author:     AJ Rossini <blindglobe@gmail.com>
@@ -576,3 +576,13 @@ my.lib
 (my-data-analysis-example:figures :type 'pdf :file "results-figs.pdf")
 
 (my-data-analysis-example:report)
+
+;;; more stuff
+
+(send m :display)
+(def m (regression-model (bind-columns iron aluminum) absorbtion))
+(send m :help)
+(send m :help :display)
+(send m :help :basis)
+
+(send m :plot-residuals)
-- 
2.11.4.GIT