TODO.lisp

   1 ;;; -*- mode: lisp -*-
   2
   3 ;;; Time-stamp: <2008-11-04 08:28:28 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.
   9
  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.
  13
  14 ;;; This file contains the current challenges to solve, including a
  15 ;;; description of the setup and the work to solve....
  16
  17 ;;; SET UP
  18
  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)
  24
  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)
  30
  31 ;;; Example: currently not relevant, yet
  32 #|
  33 (describe
  34  (lift::run-test
  35   :test-case  'lisp-stat-unittests::strided-matrix-column-access
  36   :suite 'lisp-stat-ut))
  37 |#
  38
  39
  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))
  45
  46 ;;; FIXME
  47
  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...
  51
  52 (send m :basis) ;; this should be positive?
  53 (send m :coef-estimates)
  54
  55 ;;; FIXME
  56
  57 ;; Need to clean up data examples, licenses, attributions, etc.
  58
  59 ;;; FIXME
  60