3 ;;; Time-stamp: <2010-01-03 17:12:16 tony>
4 ;;; Creation: <2008-09-08 08:06:30 tony>
6 ;;; Author: AJ Rossini <blindglobe@gmail.com>
7 ;;; Copyright: (c) 2007-2008, AJ Rossini <blindglobe@gmail.com>. BSD.
8 ;;; Purpose: Stuff that needs to be made working sits inside the
9 ;;; progns... This file contains the current challenges to
10 ;;; solve, including a description of the setup and the work
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.
25 ;;(asdf:oos 'asdf:load-op 'lisp-matrix)
26 ;;(asdf:oos 'asdf:compile-op 'cls :force t)
27 (asdf:oos
'asdf
:load-op
'cls
)
30 (asdf:oos
'asdf
:load-op
'cl-cairo2-x11
)
31 (asdf:oos
'asdf
:load-op
'cl-2d
)
34 (asdf:oos
'asdf
:load-op
'cl-pdf
)
35 (asdf:oos
'asdf
:load-op
'cl-typesetting
))
38 ;; (asdf:oos 'asdf:compile-op 'asdf-system-connections :force t)
39 ;; (asdf:oos 'asdf:compile-op 'lisp-matrix)
40 ;; (asdf:oos 'asdf:load-op 'xarray)
43 ;; (asdf:oos 'asdf:compile-op 'metatilities-base :force t)
44 ;; (asdf:oos 'asdf:load-op 'metatilities-base)
45 ;; (asdf:oos 'asdf:load-op 'anaphora)
46 ;; (asdf:oos 'asdf:load-op 'tinaa)
47 ;; (asdf:oos 'asdf:load-op 'cl-ppcre)
48 ;; (asdf:oos 'asdf:load-op 'cl-markdown)
50 ;;use of extension packages supporting versioning and validation of
52 ;; (asdf:oos 'asdf:compile-op 'versioned-objects :force t)
53 ;; (asdf:oos 'asdf:load-op 'versioned-objects)
54 ;; (asdf:oos 'asdf:compile-op 'validations :force t)
55 ;; (asdf:oos 'asdf:load-op 'validations)
58 ;; (asdf:oos 'asdf:compile-op 'cffi :force t)
59 ;; (asdf:oos 'asdf:load-op 'cl-opengl)
60 ;; (asdf:oos 'asdf:load-op 'cl-glu)
61 ;; (asdf:oos 'asdf:load-op 'cl-glut)
62 ;; (asdf:oos 'asdf:load-op 'cl-glut-examples)
64 ;; (asdf:oos 'asdf:load-op 'cells)
65 ;; (asdf:oos 'asdf:load-op 'bordeaux-threads)
66 ;; (asdf:oos 'asdf:load-op 'cells-gtk)
70 (in-package :lisp-stat-unittests
)
72 ;; tests = 78, failures = 7, errors = 20
73 (run-tests :suite
'lisp-stat-ut
)
75 (asdf:oos
'asdf
:test-op
'cls
)
76 ;; which runs (describe (run-tests :suite 'lisp-stat-ut))
78 (describe 'lisp-stat-ut
)
79 (documentation 'lisp-stat-ut
'type
)
81 ;; FIXME: Example: currently not relevant, yet
82 ;; (describe (lift::run-test :test-case 'lisp-stat-unittests::create-proto
83 ;; :suite 'lisp-stat-unittests::lisp-stat-ut-proto))
85 (describe (lift::run-tests
:suite
'lisp-stat-ut-dataframe
))
86 (lift::run-tests
:suite
'lisp-stat-ut-dataframe
)
88 (describe (lift::run-test
89 :test-case
'lisp-stat-unittests
::create-proto
90 :suite
'lisp-stat-unittests
::lisp-stat-ut-proto
))
94 ;;; Tasks working on...
101 ;; Syntax examples using lexical scope, closures, and bindings to
102 ;; ensure a clean communication of results
103 (with-data dataset
((dsvarname1 [usevarname1])
104 (dsvarname2 [usevarname2]))
107 (defparameter *df-test*
108 (make-instance 'dataframe-array
109 :storage #2A (('a "test0" 0 0d0)
115 :case-labels (list "0" "1" "2" "3" "4")
116 :var-labels (list "symbol" "string" "integer" "double-float")
117 :var-types (list 'symbol 'string 'integer 'double-float)))
119 *df-test* ; but with SBCL, ints become floats?
121 (defun check-var (df colnum)
122 (let ((nobs (xdim df 0)))
124 (check-type (xref df i colnum) (elt (var-types df) i)))))
126 (check-var *df-test* 0)
130 (integerp (xref *df-test* 1 2))
131 (floatp (xref *df-test* 1 2))
132 (integerp (xref *df-test* 1 3))
133 (type-of (xref *df-test* 1 3))
134 (floatp (xref *df-test* 1 3))
136 (type-of (vector 1 1d0))
145 (xref *df-test* 1 '*)
147 ;;; Experiments with cl-variates
149 ;; (asdf:oos 'asdf:compile-op 'cl-variates :force t)
150 ;; (asdf:oos 'asdf:compile-op 'cl-variates-test :force t)
151 ;; (asdf:oos 'asdf:load-op 'lift)
152 ;; (asdf:oos 'asdf:load-op 'cl-variates)
153 (asdf:oos 'asdf:load-op 'cl-variates-test)
155 (in-package :cl-variates-test)
157 (run-tests :suite 'cl-variates-test)
158 (describe (run-tests :suite 'cl-variates-test))
160 (in-package :cl-variates-user)
162 (defparameter state (make-random-number-generator))
163 (setf (random-seed state) 44)
165 (loop for i from 1 to 10 collect
166 (random-range state 0 10))
167 ;; => (1 5 1 0 7 1 2 2 8 10)
168 (setf (random-seed state) 44)
169 (loop for i from 1 to 10 collect
170 (random-range state 0 10))
171 ;; => (1 5 1 0 7 1 2 2 8 10)
173 (setf (random-seed state) 44)
175 (loop for i from 1 to 10 collect
176 (normal-random state 0 1))
178 ;; (-1.2968656102820426 0.40746363934173213 -0.8594712469518473 0.8795681301148328
179 ;; 1.0731526250004264 -0.8161629082481728 0.7001813608754809 0.1078045427044097
180 ;; 0.20750134211656893 -0.14501914108452274)
182 (setf (random-seed state) 44)
183 (loop for i from 1 to 10 collect
184 (normal-random state 0 1))
186 ;; (-1.2968656102820426 0.40746363934173213 -0.8594712469518473 0.8795681301148328
187 ;; 1.0731526250004264 -0.8161629082481728 0.7001813608754809 0.1078045427044097
188 ;; 0.20750134211656893 -0.14501914108452274)
191 ;;; experiments with LLA
192 (in-package :cl-user)
193 (asdf:oos 'asdf:load-op 'lla)
194 (in-package :lla-user)