lspackages.lsp

   1 ;;; -*- mode: lisp -*-
   2 ;;; Copyright (c) 2005--2007, 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 ;;;; lspackages -- Lisp-Stat package specifications
   7 ;;;;
   8 ;;;; Copyright (c) 1991, by Luke Tierney. Permission is granted for
   9 ;;;; unrestricted use.
  10
  11 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  12 ;;;;;
  13 ;;;;;                 LISP-STAT-OBJECT-SYSTEM Package
  14 ;;;;;
  15 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  16
  17 ;;;;
  18 ;;;; lsobjects.lsp
  19 ;;;;
  20
  21 (defpackage :lisp-stat-object-system
  22  (:nicknames :ls-objects :lsos)
  23  (:use :common-lisp)
  24  (:shadow call-next-method slot-value)
  25  (:export ls-object objectp *object* kind-of-p make-object *message-hook*
  26           *set-slot-hook* slot-value self send call-next-method call-method
  27           defmeth defproto instance-slots proto-name))
  28
  29 (in-package :lisp-stat-object-system)
  30
  31 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  32 ;;;;;
  33 ;;;;;                       LISP-STAT-BASICS Package
  34 ;;;;;
  35 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  36
  37 ;;;;
  38 ;;;; lsbasics.lsp
  39 ;;;;
  40
  41 (defpackage #:lisp-stat-basics
  42   (:nicknames #:ls-basics)
  43   (:use #:common-lisp #:lisp-stat-object-system)
  44   ;;(:shadowing-import-from (package-shadowing-symbols #:lisp-stat-object-system))
  45   (:export sequencep copy-vector copy-array iseq which repeat select
  46            permute-array sum prod count-elements mean if-else
  47            sample sort-data order rank))
  48
  49 (in-package #:lisp-stat-basics)
  50
  51 ;;;;
  52 ;;;; kclpatch.lsp
  53 ;;;;
  54
  55 #+:kcl
  56 (export '(function-lambda-expression realp fixnump))
  57
  58 ;;;;
  59 ;;;; compound.lsp
  60 ;;;;
  61
  62 (export compound-data-p map-elements compound-data-seq
  63         compound-data-length element-seq compound-data-proto)
  64
  65 ;;;;
  66 ;;;; dists.lsp
  67 ;;;;
  68
  69 (export log-gamma uniform-rand normal-cdf normal-quant normal-dens
  70         normal-rand bivnorm-cdf cauchy-cdf cauchy-quant cauchy-dens
  71         cauchy-rand gamma-cdf gamma-quant gamma-dens gamma-rand
  72         chisq-cdf chisq-quant chisq-dens chisq-rand beta-cdf beta-quant
  73         beta-dens beta-rand t-cdf t-quant t-dens t-rand f-cdf f-quant
  74         f-dens f-rand poisson-cdf poisson-quant poisson-pmf poisson-rand
  75         binomial-cdf binomial-quant binomial-pmf binomial-rand)
  76
  77 ;;;;
  78 ;;;; linalg.lsp
  79 ;;;;
  80
  81 (export chol-decomp lu-decomp lu-solve determinant inverse sv-decomp
  82         qr-decomp rcondest make-rotation spline kernel-dens kernel-smooth
  83         fft make-sweep-matrix sweep-operator ax+y numgrad numhess
  84         split-list eigen)
  85
  86 ;;;;
  87 ;;;; matrices.lsp
  88 ;;;;
  89
  90 (export matrixp num-rows num-cols matmult identity-matrix diagonal
  91         row-list column-list inner-product outer-product cross-product
  92         transpose bind-columns bind-rows)
  93
  94 ;;;;
  95 ;;;; lsfloat.lsp
  96 ;;;;
  97
  98 (export +stat-float-type+ +stat-cfloat-type+ +stat-float-template+
  99         machine-epsilon)
 100
 101 ;;;;
 102 ;;;; mclglue.lsp
 103 ;;;;
 104
 105 #+:mcl
 106 (import '(ccl:def-logical-directory ccl:ff-load ccl:deffcfun ccl:defccallable))
 107
 108 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 109 ;;;;;
 110 ;;;;;                         LISP-STAT Package
 111 ;;;;;
 112 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 113
 114 ;;;;
 115 ;;;; lsmath.lsp
 116 ;;;;
 117
 118 (defpackage :lisp-stat
 119   (:nicknames :ls :stats)
 120   (:use :common-lisp :lisp-stat-basics :lisp-stat-object-system))
 121
 122 (in-package :lisp-stat)
 123
 124 ;; (shadowing-import (package-shadowing-symbols 'lisp-stat-object-system))
 125 ;; (shadowing-import (package-shadowing-symbols 'lisp-stat-basics))
 126 ;; (use-package 'lisp-stat-object-system)
 127 ;; (use-package 'lisp-stat-basics)
 128
 129 (shadow expt + - * / ** mod rem abs 1+ 1- log exp sqrt sin cos tan
 130         asin acos atan sinh cosh tanh asinh acosh atanh float random
 131         truncate floor ceiling round minusp zerop plusp evenp oddp
 132         < <= = /= >= > complex conjugate realpart imagpart phase
 133         min max logand logior logxor lognot ffloor fceiling
 134         ftruncate fround signum cis)
 135
 136 (export ^ ** expt + - * / mod rem pmin pmax abs 1+ 1- log exp sqrt sin cos
 137         tan asin acos atan sinh cosh tanh asinh acosh atanh float random
 138         truncate floor ceiling round minusp zerop plusp evenp oddp < <= =
 139         /= >= > complex conjugate realpart imagpart phase min max
 140         logand logior logxor lognot ffloor fceiling ftruncate fround
 141         signum cis)
 142
 143 (import ls-basics::install-rv-function)
 144 (import ls-basics::rv-expt ls-basics::rv-+ ls-basics::rv--
 145         ls-basics::rv-* ls-basics::rv-/ ls-basics::rv-mod
 146         ls-basics::rv-rem ls-basics::rv-pmin ls-basics::rv-pmax
 147         ls-basics::rv-1+ ls-basics::rv-1- ls-basics::rv-exp
 148         ls-basics::rv-log ls-basics::rv-sqrt ls-basics::rv-sin
 149         ls-basics::rv-cos ls-basics::rv-tan ls-basics::rv-atan
 150         ls-basics::rv-float ls-basics::rv-random ls-basics::rv-floor
 151         ls-basics::rv-ceiling ls-basics::rv-truncate ls-basics::rv-round
 152         ls-basics::rv-zerop ls-basics::rv-plusp ls-basics::rv-minusp
 153         ls-basics::rv-oddp ls-basics::rv-evenp ls-basics::rv-<
 154         ls-basics::rv-<= ls-basics::rv-= ls-basics::rv-/=
 155         ls-basics::rv->= ls-basics::rv-> ls-basics::rv-complex
 156         ls-basics::rv-realpart ls-basics::rv-imagpart
 157         ls-basics::rv-conjugate)
 158
 159 (import ls-basics::base-expt ls-basics::base-log ls-basics::base-exp
 160         ls-basics::base-sqrt ls-basics::base-sin ls-basics::base-cos
 161         ls-basics::base-tan ls-basics::base-asin ls-basics::base-acos
 162         ls-basics::base-atan ls-basics::base-sinh ls-basics::base-cosh
 163         ls-basics::base-tanh ls-basics::base-asinh ls-basics::base-acosh
 164         ls-basics::base-atanh ls-basics::base-float ls-basics::base-abs
 165         ls-basics::base-phase ls-basics::base-ffloor
 166         ls-basics::base-fceiling ls-basics::base-ftruncate
 167         ls-basics::base-fround ls-basics::base-signum
 168         ls-basics::base-cis)
 169
 170 (import ls-basics::make-rv-function ls-basics::make-rv-function-1)
 171
 172 ;;;;
 173 ;;;; statistics.lsp
 174 ;;;;
 175
 176 (export open-file-dialog read-data-file read-data-columns load-data
 177         load-example *variables* *ask-on-redefine* def variables savevar
 178         undef standard-deviation quantile median interquartile-range
 179         fivnum covariance-matrix difference rseq matrix print-matrix solve
 180         backsolve eigenvalues eigenvectors accumulate cumsum combine
 181         lowess)
 182
 183 (import ls-basics::|base-lowess|)
 184
 185 ;;;;
 186 ;;;; regression.lsp
 187 ;;;;
 188
 189 (export regression-model regression-model-proto x y intercept sweep-matrix
 190         basis weights included total-sum-of-squares residual-sum-of-squares
 191         predictor-names response-name case-labels)
 192
 193 ;;;;
 194 ;;;; nonlin.lsp
 195 ;;;;
 196
 197 (export nreg-model nreg-model-proto mean-function theta-hat epsilon
 198         count-limit verbose)
 199
 200 ;;;;
 201 ;;;; maximize.lsp
 202 ;;;;
 203
 204 (export newtonmax nelmeadmax)
 205
 206 (import ls-basics::new-minfo-internals ls-basics::minfo-maximize)
 207
 208 ;;;;
 209 ;;;; bayes.lsp
 210 ;;;;
 211
 212 (export bayes-model bayes-model-proto bayes-internals)
 213
 214 ;;;;
 215 ;;;; lstoplevel.lsp
 216 ;;;;
 217
 218 #+:kcl
 219 (import '(si::*quit-tag* si::*eof* si::*lisp-initialized*
 220                          si::reset-stack-limits si::break-current))