1 ;;;; lspackages -- Lisp-Stat package specifications
3 ;;;; Copyright (c) 1991, by Luke Tierney. Permission is granted for
8 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
10 ;;;;; LISP-STAT-OBJECT-SYSTEM Package
12 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
20 (defpackage "LISP-STAT-OBJECT-SYSTEM"
21 (:nicknames
"LS-OBJECTS" "LSOS")
23 (:shadow
"CALL-NEXT-METHOD" "SLOT-VALUE"))
25 (in-package lisp-stat-object-system
))
29 (in-package 'lisp-stat-object-system
30 :nicknames
'(ls-objects lsos
)
33 (shadow '(call-next-method slot-value
)))
35 (export '(ls-object objectp
*object
* kind-of-p make-object
*message-hook
*
36 *set-slot-hook
* slot-value self send call-next-method call-method
37 defmeth defproto instance-slots proto-name
))
40 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
42 ;;;;; LISP-STAT-BASICS Package
44 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
52 (defpackage "LISP-STAT-BASICS"
53 (:nicknames
"LS-BASICS")
54 (:use
"COMMON-LISP" "LISP-STAT-OBJECT-SYSTEM"))
56 (in-package lisp-stat-basics
))
58 (in-package 'lisp-stat-basics
59 :nicknames
'(ls-basics)
62 (shadowing-import (package-shadowing-symbols 'lisp-stat-object-system
))
63 (use-package 'lisp-stat-object-system
)
65 (export '(sequencep copy-vector copy-array iseq which repeat select
66 permute-array sum prod count-elements mean if-else
67 sample sort-data order rank
))
74 (export '(function-lambda-expression realp fixnump
))
80 (export '(compound-data-p map-elements compound-data-seq
81 compound-data-length element-seq compound-data-proto
))
87 (export '(log-gamma uniform-rand normal-cdf normal-quant normal-dens
88 normal-rand bivnorm-cdf cauchy-cdf cauchy-quant cauchy-dens
89 cauchy-rand gamma-cdf gamma-quant gamma-dens gamma-rand
90 chisq-cdf chisq-quant chisq-dens chisq-rand beta-cdf beta-quant
91 beta-dens beta-rand t-cdf t-quant t-dens t-rand f-cdf f-quant
92 f-dens f-rand poisson-cdf poisson-quant poisson-pmf poisson-rand
93 binomial-cdf binomial-quant binomial-pmf binomial-rand
))
99 (export '(chol-decomp lu-decomp lu-solve determinant inverse sv-decomp
100 qr-decomp rcondest make-rotation spline kernel-dens kernel-smooth
101 fft make-sweep-matrix sweep-operator ax
+y numgrad numhess
108 (export '(matrixp num-rows num-cols matmult identity-matrix diagonal
109 row-list column-list inner-product outer-product cross-product
110 transpose bind-columns bind-rows
))
116 (export '(*stat-float-type
* *stat-cfloat-type
* *stat-float-template
*
124 (import '(ccl:def-logical-directory ccl
:ff-load ccl
:deffcfun ccl
:defccallable
))
126 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
128 ;;;;; LISP-STAT Package
130 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
138 (defpackage "LISP-STAT"
139 (:nicknames
"LS" "STATS")
140 (:use
"COMMON-LISP" "LISP-STAT-BASICS" "LISP-STAT-OBJECT-SYSTEM"))
142 (in-package lisp-stat
))
144 (in-package 'lisp-stat
145 :nicknames
'(ls stats
)
146 :use
'(lisp ls-basics lsos
))
148 (shadowing-import (package-shadowing-symbols 'lisp-stat-object-system
))
149 (shadowing-import (package-shadowing-symbols 'lisp-stat-basics
))
150 (use-package 'lisp-stat-object-system
)
151 (use-package 'lisp-stat-basics
)
153 (shadow '(expt + -
* / ** mod rem abs
1+ 1- log exp sqrt sin cos tan
154 asin acos atan sinh cosh tanh asinh acosh atanh float random
155 truncate floor ceiling round minusp zerop plusp evenp oddp
156 < <= = /= >= > complex conjugate realpart imagpart phase
157 min max logand logior logxor lognot ffloor fceiling
158 ftruncate fround signum cis
))
160 (export '(^
** expt
+ -
* / mod rem pmin pmax abs
1+ 1- log exp sqrt sin cos
161 tan asin acos atan sinh cosh tanh asinh acosh atanh float random
162 truncate floor ceiling round minusp zerop plusp evenp oddp
< <= =
163 /= >= > complex conjugate realpart imagpart phase min max
164 logand logior logxor lognot ffloor fceiling ftruncate fround
167 (import 'ls-basics
::install-rv-function
)
168 (import '(ls-basics::rv-expt ls-basics
::rv-
+ ls-basics
::rv--
169 ls-basics
::rv-
* ls-basics
::rv-
/ ls-basics
::rv-mod
170 ls-basics
::rv-rem ls-basics
::rv-pmin ls-basics
::rv-pmax
171 ls-basics
::rv-1
+ ls-basics
::rv-1- ls-basics
::rv-exp
172 ls-basics
::rv-log ls-basics
::rv-sqrt ls-basics
::rv-sin
173 ls-basics
::rv-cos ls-basics
::rv-tan ls-basics
::rv-atan
174 ls-basics
::rv-float ls-basics
::rv-random ls-basics
::rv-floor
175 ls-basics
::rv-ceiling ls-basics
::rv-truncate ls-basics
::rv-round
176 ls-basics
::rv-zerop ls-basics
::rv-plusp ls-basics
::rv-minusp
177 ls-basics
::rv-oddp ls-basics
::rv-evenp ls-basics
::rv-
<
178 ls-basics
::rv-
<= ls-basics
::rv-
= ls-basics
::rv-
/=
179 ls-basics
::rv-
>= ls-basics
::rv-
> ls-basics
::rv-complex
180 ls-basics
::rv-realpart ls-basics
::rv-imagpart
181 ls-basics
::rv-conjugate
))
183 (import '(ls-basics::base-expt ls-basics
::base-log ls-basics
::base-exp
184 ls-basics
::base-sqrt ls-basics
::base-sin ls-basics
::base-cos
185 ls-basics
::base-tan ls-basics
::base-asin ls-basics
::base-acos
186 ls-basics
::base-atan ls-basics
::base-sinh ls-basics
::base-cosh
187 ls-basics
::base-tanh ls-basics
::base-asinh ls-basics
::base-acosh
188 ls-basics
::base-atanh ls-basics
::base-float ls-basics
::base-abs
189 ls-basics
::base-phase ls-basics
::base-ffloor
190 ls-basics
::base-fceiling ls-basics
::base-ftruncate
191 ls-basics
::base-fround ls-basics
::base-signum
192 ls-basics
::base-cis
))
194 (import '(ls-basics::make-rv-function ls-basics
::make-rv-function-1
))
200 (export '(open-file-dialog read-data-file read-data-columns load-data
201 load-example
*variables
* *ask-on-redefine
* def variables savevar
202 undef standard-deviation quantile median interquartile-range
203 fivnum covariance-matrix difference rseq matrix print-matrix solve
204 backsolve eigenvalues eigenvectors accumulate cumsum combine
207 (import 'ls-basics
::|base-lowess|
)
213 (export '(regression-model regression-model-proto x y intercept sweep-matrix
214 basis weights included total-sum-of-squares residual-sum-of-squares
215 predictor-names response-name case-labels
))
221 (export '(nreg-model nreg-model-proto mean-function theta-hat epsilon
222 count-limit verbose
))
228 (export '(newtonmax nelmeadmax
))
230 (import '(ls-basics::new-minfo-internals ls-basics
::minfo-maximize
))
236 (export '(bayes-model bayes-model-proto bayes-internals
))
243 (import '(si::*quit-tag
* si
::*eof
* si
::*lisp-initialized
*
244 si
::reset-stack-limits si
::break-current
))