3 ;;; Time-stamp: <2008-11-07 17:53:48 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: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
31 ;;; Example: currently not relevant, yet
35 :test-case
'lisp-stat-unittests
::create-proto
36 :suite
'lisp-stat-unittests
::lisp-stat-ut-proto
))
40 (defvar m nil
"holding variable.")
41 (def m
(regression-model (list iron aluminum
) absorbtion
:print nil
))
43 (send m
:sweep-matrix
)
44 (format t
"~%~A~%" (send m
:sweep-matrix
))
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
)
57 ;; Need to clean up data examples, licenses, attributions, etc.