3 ;;; Time-stamp: <2008-11-02 17:54:25 tony>
4 ;;; Creation: <2008-09-08 08:06:30 tony>
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....
20 ;;(asdf:oos 'asdf:compile-op 'lift :force t)
21 ;;(asdf:oos 'asdf:load-op 'lift)
22 ;;(asdf:oos 'asdf:load-op 'lispstat)
24 (in-package :lisp-stat-unittests
)
25 (describe (run-tests :suite
'lisp-stat-ut
))
26 (run-tests :suite
'lisp-stat-ut
)
27 ;; tests = 50, failures = 6 , errors = 0
30 ;;; Example: currently not relevant, yet
34 :test-case
'lispstat-unittests
::strided-matrix-column-access
35 :suite
'lispstat-regression
))
39 (defvar m nil
"holding variable.")
40 (def m
(regression-model (list iron aluminum
) absorbtion
:print nil
))
42 (send m
:sweep-matrix
)
43 (format t
"~%~A~%" (send m
:sweep-matrix
))
47 ;; need to get multiple-linear regression working (simple linear regr
48 ;; works)... to do this, we need to redo the whole numeric structure,
49 ;; I'm keeping these in as example of brokenness...
51 (send m
:basis
) ;; this should be positive?
52 (send m
:coef-estimates
)