moved data to examples package, for simpler reuse.
[CommonLispStat.git] / TODO.lisp
blobb84c5514d2f2f9ca7b05c71735d0af825441cd01
1 ;;; -*- mode: lisp -*-
3 ;;; Time-stamp: <2008-10-31 17:34:29 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:load-op 'lift)
21 ;;(asdf:oos 'asdf:load-op 'lispstat)
23 (in-package :lisp-stat-unittests)
24 (describe (run-tests :suite 'lisp-stat-ut))
25 (run-tests :suite 'lisp-stat-ut)
27 (in-package :ls-user)
29 ;;; Example: currently not relevant, yet
31 (describe
32 (lift::run-test
33 :test-case 'lispstat-unittests::strided-matrix-column-access
34 :suite 'lispstat-regression))
37 (defvar m nil "holding variable.")
38 (def m (regression-model (list iron aluminum) absorbtion :print nil))
39 (send m :compute)
40 (send m :sweep-matrix)
41 (format t "~%~A~%" (send m :sweep-matrix))
43 ;;; FIXME
45 ;; need to get multiple-linear regression working (simple linear regr
46 ;; works).
48 (send m :basis) ;; this should be positive?
49 (send m :coef-estimates)
51 (send m :display)
52 (def m (regression-model (bind-columns iron aluminum) absorbtion))
53 (send m :help)
54 (send m :help :display)
55 (send m :help :basis)
57 (send m :plot-residuals)