From 4c2e2b217daac5743aefcb6c4e1033b3aada3814 Mon Sep 17 00:00:00 2001 From: AJ Rossini Date: Wed, 26 Aug 2009 13:59:57 +0200 Subject: [PATCH] class for nominal / ordinal variables. Signed-off-by: AJ Rossini --- src/data/data.lisp | 14 ++++++++++++-- 1 file changed, 12 insertions(+), 2 deletions(-) diff --git a/src/data/data.lisp b/src/data/data.lisp index 78720ed..514747f 100644 --- a/src/data/data.lisp +++ b/src/data/data.lisp @@ -1,6 +1,6 @@ ;;; -*- mode: lisp -*- -;;; Time-stamp: <2009-08-26 13:54:50 tony> +;;; Time-stamp: <2009-08-26 13:59:15 tony> ;;; Creation: <2005-08-xx 21:34:07 rossini> ;;; File: data.lisp ;;; Author: AJ Rossini @@ -75,7 +75,18 @@ ;;; originally, these were considered to be types, but now, we ;;; consider this in terms of abstract classes and mix-ins. +(defclass nominal-statistical-variable () + ((data :initform nil + :accessor data + :type sequence) + (levels :initform nil + :accessor levels + :type sequence))) +(defclass ordinal-statistical-variable (nominal-statistical-variable) + ((ordering :initform nil + :accessor ordering + :type sequence))) ;;;; ;;;; Listing and Saving Variables and Functions @@ -135,4 +146,3 @@ names each is unbound and removed. Returns V." (setq *variables* (delete s *variables*)) (makunbound s))) v) - -- 2.11.4.GIT