documentation cleanup.
[CommonLispStat.git] / TODO.lisp
blobe81b080b40102d04cf60635f359f251bb3576d20
1 ;;; -*- mode: lisp -*-
3 ;;; Time-stamp: <2008-11-03 09:22:45 tony>
4 ;;; Creation: <2008-09-08 08:06:30 tony>
5 ;;; File: TODO.lisp
6 ;;; Author: AJ Rossini <blindglobe@gmail.com>
7 ;;; Copyright: (c) 2007-2008, AJ Rossini <blindglobe@gmail.com>. BSD.
8 ;;; Purpose: demonstrations of how one might use CLS.
10 ;;; What is this talk of 'release'? Klingons do not make software
11 ;;; 'releases'. Our software 'escapes', leaving a bloody trail of
12 ;;; designers and quality assurance people in its wake.
14 ;;; This file contains the current challenges to solve, including a
15 ;;; description of the setup and the work to solve....
17 ;;; SET UP
19 (in-package :cl-user)
20 ;;(asdf:oos 'asdf:compile-op 'lift :force t)
21 ;;(asdf:oos 'asdf:load-op 'lift)
22 ;;(asdf:oos 'asdf:compile-op 'lispstat)
23 ;;(asdf:oos 'asdf:load-op 'lispstat)
25 (in-package :lisp-stat-unittests)
26 (describe (run-tests :suite 'lisp-stat-ut))
27 (run-tests :suite 'lisp-stat-ut)
28 ;; tests = 71, failures = 12 , errors = 9
29 (in-package :ls-user)
31 ;;; Example: currently not relevant, yet
33 (describe
34 (lift::run-test
35 :test-case 'lisp-stat-unittests::strided-matrix-column-access
36 :suite 'lisp-stat-ut))
40 (defvar m nil "holding variable.")
41 (def m (regression-model (list iron aluminum) absorbtion :print nil))
42 (send m :compute)
43 (send m :sweep-matrix)
44 (format t "~%~A~%" (send m :sweep-matrix))
46 ;;; FIXME
48 ;; need to get multiple-linear regression working (simple linear regr
49 ;; works)... to do this, we need to redo the whole numeric structure,
50 ;; I'm keeping these in as example of brokenness...
52 (send m :basis) ;; this should be positive?
53 (send m :coef-estimates)