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