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.
6 ;;; Time-stamp: <2012-10-03 05:30:37 tony>
7 ;;; Creation: <2012-07-01 11:29:42 tony>
9 ;;; Author: AJ Rossini <blindglobe@gmail.com>
10 ;;; Copyright: (c) 2012, AJ Rossini. BSD.
11 ;;; Purpose: example of possible usage.
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.
21 ;; use the example package...
22 (in-package :cls-user
)
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
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
48 (in-package :my-clswork-user
)
50 ;; create some data by hand
52 (setf *testdata-prespec-2Darray
*
53 (make-dataframe #2A
((1 2 3)(4 5 6))))
56 ;; (setf *testdata-prespec-listoflist*
57 ;; (make-dataframe '(list ((1 2 3)(4 5 6)))))