From 0eef97dc6badccdade5f6e8a417fb2ad9554400e Mon Sep 17 00:00:00 2001 From: AJ Rossini Date: Tue, 21 Apr 2009 08:17:04 +0200 Subject: [PATCH] examples cleaned up, regression example works, moved out. testing better illustrated. Signed-off-by: AJ Rossini --- TODO.lisp | 61 ++++++++++--------------------------------------------------- 1 file changed, 10 insertions(+), 51 deletions(-) diff --git a/TODO.lisp b/TODO.lisp index 36abb7b..4c6cef3 100644 --- a/TODO.lisp +++ b/TODO.lisp @@ -1,6 +1,6 @@ ;;; -*- mode: lisp -*- -;;; Time-stamp: <2009-04-20 08:08:46 tony> +;;; Time-stamp: <2009-04-20 19:01:23 tony> ;;; Creation: <2008-09-08 08:06:30 tony> ;;; File: TODO.lisp ;;; Author: AJ Rossini @@ -31,57 +31,18 @@ ;; (describe (lift::run-test :test-case 'lisp-stat-unittests::create-proto ;; :suite 'lisp-stat-unittests::lisp-stat-ut-proto)) - (describe (lift::run-tests :suite 'lisp-stat-ut-dataframe)) - (lift::run-tests :suite 'lisp-stat-ut-dataframe) +(describe (lift::run-tests :suite 'lisp-stat-ut-dataframe)) +(lift::run-tests :suite 'lisp-stat-ut-dataframe) - (describe - (lift::run-test - :test-case 'lisp-stat-unittests::create-proto - :suite 'lisp-stat-unittests::lisp-stat-ut-proto)) +(describe + (lift::run-test + :test-case 'lisp-stat-unittests::create-proto + :suite 'lisp-stat-unittests::lisp-stat-ut-proto)) (describe 'lisp-stat-ut) (in-package :ls-user) -(progn ;; FIXME: Regression modeling (some data future-ish). - - ;; TODO: - ;; - confirm estimates for multivariate case, - ;; - pretty-print output - ;; - fix up API -- what do we want this to look like? - - (defparameter *m* - (regression-model (list->vector-like iron) ;; BROKEN - (list->vector-like absorbtion)) - "holding variable.") - - (defparameter *m-fit* - (fit-model *m*)) - - (princ *m*) - (princ *m-fit*) - - (estimates *m-fit*) - (covariance-matrix *m-fit*) - - (defparameter *m3* - (regression-model (transpose (listoflist->matrix-like (list iron aluminum) - :orientation :row-major)) - (list->vector-like absorbtion) )) - (princ *m3*) - (defparameter *m3-fit* - (fit-model *m3*)) -#| - ;; Should the above look something like: - (defparameter *m3-fit* - (spec-and-fit-model '(absorbtion = iron aluminum))) - ;; in which case we split the list before/after the "=" character. -|# - - (estimates *m3-fit*) - (covariance-matrix *m3-fit*)) - - #+nil (progn ;; FIXME: Need to clean up data examples, licenses, attributions, etc. ;; The following breaks because we should use a package to hold @@ -92,7 +53,6 @@ diabetes ) - (progn ;; Importing data from DSV text files. (defparameter *my-df-2* @@ -134,6 +94,8 @@ :doc "This is an interesting dataframe-array")) *my-df-3* + ;; Need to the this using the make-dataframe example, or write a + ;; dsvfile->dataframe command. ) @@ -141,7 +103,7 @@ (progn ;; Plotting - (asdf:oos 'asdf:load-op 'cl-plplot) + ;; (asdf:oos 'asdf:load-op 'cl-plplot) (plot-ex) (defparameter *gdev* "xcairo") @@ -159,9 +121,6 @@ ) -(in-package :ls-user) - - (progn ;; REVIEW: general Lisp use guidance -- 2.11.4.GIT