example.lisp

   1 ;;; -*- mode: lisp -*-
   2 ;;; Copyright (c) 2006-2008, by A.J. Rossini <blindglobe@gmail.com>
   3 ;;; See COPYRIGHT file for any additional restrictions (BSD license).
   4 ;;; Since 1991, ANSI was finally finished.  Edited for ANSI Common Lisp.
   5
   6 ;;; Time-stamp: <2012-07-01 11:59:27 tony>
   7 ;;; Creation:   <2012-07-01 11:29:42 tony>
   8 ;;; File:       example.lisp
   9 ;;; Author:     AJ Rossini <blindglobe@gmail.com>
  10 ;;; Copyright:  (c) 2012, AJ Rossini.  BSD.
  11 ;;; Purpose:    example of possible usage.
  12
  13 ;;; What is this talk of 'release'? Klingons do not make software
  14 ;;; 'releases'.  Our software 'escapes', leaving a bloody trail of
  15 ;;; designers and quality assurance people in its wake.
  16
  17
  18 ;; Load system
  19 (ql:quickload "cls")
  20
  21 ;; use the example package...
  22 (in-package :cls-user)
  23
  24
  25 ;; or better yet, create a package/namespace for the particular problem being attacked.
  26 (defpackage :my-package-user
  27   (:documentation "demo of how to put serious work should be placed in
  28     a similar package elsewhere for reproducibility.  This hints as to
  29     what needs to be done for a user- or analysis-package.")
  30   (:nicknames :my-clswork-user)
  31   (:use :common-lisp ; always needed for user playgrounds!
  32         :lisp-matrix ; we only need the packages that we need...
  33         :common-lisp-statistics
  34         :lisp-stat-data-examples) ;; this ensures access to a data package
  35   (:export summarize-data summarize-results this-data this-report)
  36   (:shadowing-import-from :lisp-stat call-method call-next-method
  37
  38       expt + - * / ** mod rem abs 1+ 1- log exp sqrt sin cos tan
  39       asin acos atan sinh cosh tanh asinh acosh atanh float random
  40       truncate floor ceiling round minusp zerop plusp evenp oddp
  41       < <= = /= >= > > ;; complex
  42       conjugate realpart imagpart phase
  43       min max logand logior logxor lognot ffloor fceiling
  44       ftruncate fround signum cis
  45
  46       <= float imagpart))
  47
  48 (in-package :my-clswork-user)
  49
  50 ;; create some data by hand
  51
  52 (setf *testdata-prespec-2Darray*
  53       (make-dataframe #2A((1 2 3)(4 5 6))))
  54
  55 (setf *testdata-prespec-listoflist*
  56       (make-dataframe  (list ((1 2 3)(4 5 6)))))
  57