data-clos.lisp

   1 ;;; -*- mode: lisp -*-
   2
   3 ;;; File:       data-clos.lisp
   4 ;;; Author:     AJ Rossini <blindglobe@gmail.com>
   5 ;;; Copyright:  (c)2008, AJ Rossini.  BSD, LLGPL, or GPLv2, depending
   6 ;;;             on how it arrives.
   7 ;;; Purpose:    data package for lispstat
   8 ;;; Time-stamp: <2008-03-12 17:18:42 user>
   9 ;;; Creation:   <2008-03-12 17:18:42 user>
  10
  11 ;;; What is this talk of 'release'? Klingons do not make software
  12 ;;; 'releases'.  Our software 'escapes', leaving a bloody trail of
  13 ;;; designers and quality assurance people in its wake.
  14
  15 ;;; This organization and structure is new to the 21st Century
  16 ;;; version.
  17
  18 ;;; data-clos.lisp
  19 ;;;
  20 ;;; redoing regression in a CLOS based framework.
  21 ;;; See regression.lsp for basis of work.
  22
  23 (in-package :cl-user)
  24
  25 (defpackage :lisp-stat-data-clos
  26   (:use :common-lisp
  27         :clem ;;?? or :matlisp , or :...?
  28         )
  29   (:export dataset extract set))
  30
  31 (in-package :lisp-stat-data-clos)
  32
  33 (defclass dataset ()
  34   ((store :initform (array) :initarg :storage :accessor storage)
  35    (documentation :initform (list) :initarg :doc :accessor documentation)
  36    (case-labels :initform (list) :initarg :y :accessor y)
  37    (var-labels :initform (list) :initarg :y :accessor y))
  38   (:documentation "Standard Cases by Variables Dataset."))
  39
  40 (defgeneric extract  (dataform what into-form))
  41
  42 (defmethod extract ((ds dataset) what into-form)
  43