TODO.lisp

   1 ;;; -*- mode: lisp -*-
   2
   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.
   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:load-op 'lift)
  21 ;;(asdf:oos 'asdf:load-op 'lispstat)
  22
  23 (in-package :lisp-stat-unittests)
  24 (describe (run-tests :suite 'lisp-stat-ut))
  25 (run-tests :suite 'lisp-stat-ut)
  26
  27 (in-package :ls-user)
  28
  29 ;;; Example: currently not relevant, yet
  30 #|
  31 (describe
  32  (lift::run-test
  33   :test-case  'lispstat-unittests::strided-matrix-column-access
  34   :suite 'lispstat-regression))
  35 |#
  36
  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))
  42
  43 ;;; FIXME
  44
  45 ;; need to get multiple-linear regression working (simple linear regr
  46 ;; works).
  47
  48 (send m :basis) ;; this should be positive?
  49 (send m :coef-estimates)
  50
  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)
  56
  57 (send m :plot-residuals)