3 ;;; File: data-clos.lisp
4 ;;; Author: AJ Rossini <blindglobe@gmail.com>
5 ;;; Copyright: (c)2008, AJ Rossini. BSD, LLGPL, or GPLv2, depending
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>
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.
15 ;;; This organization and structure is new to the 21st Century
20 ;;; redoing regression in a CLOS based framework.
21 ;;; See regression.lsp for basis of work.
25 (defpackage :lisp-stat-data-clos
27 :clem
;;?? or :matlisp , or :...?
29 (:export dataset extract set
))
31 (in-package :lisp-stat-data-clos
)
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."))
40 (defgeneric extract
(dataform what into-form
))
42 (defmethod extract ((ds dataset
) what into-form
)
43 (reshape (get ds what
) into-form
))
47 (defclass data-format
())