ls-user.lisp

   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 (defpackage :lisp-stat
   7     (:documentation "Experimentation package for LispStat.  Serious work
   8 should be packaged up elsewhere for reproducibility.")
   9   (:use :common-lisp
  10         :lisp-stat-object-system
  11         :lisp-stat-compound-data
  12         :lisp-stat-probability
  13         :lisp-stat-fastmap
  14         :lisp-stat-types
  15         :lisp-stat-float
  16         :lisp-stat-basics
  17         :lisp-stat-data
  18         :lisp-stat-math
  19         :lisp-stat-matrix
  20         :lisp-stat-linalg
  21         :lisp-stat-descriptive-statistics
  22         :lisp-stat-regression-linear)
  23   (:shadowing-import-from :lisp-stat-object-system
  24         slot-value call-method call-next-method)
  25   (:shadowing-import-from :lisp-stat-math
  26         expt + - * / ** mod rem abs 1+ 1- log exp sqrt sin cos tan
  27         asin acos atan sinh cosh tanh asinh acosh atanh float random
  28         truncate floor ceiling round minusp zerop plusp evenp oddp
  29         < <= = /= >= > complex conjugate realpart imagpart phase
  30         min max logand logior logxor lognot ffloor fceiling
  31         ftruncate fround signum cis)
  32   (:export
  33
  34    ;; lsobjects :
  35    defproto defmeth send
  36
  37    ;; fastmap :
  38    fastmap
  39
  40    ;; lstypes
  41    fixnump check-nonneg-fixnum check-one-fixnum
  42    check-one-real check-one-number
  43
  44    ;; lsmacros
  45
  46    ;; lsfloat :
  47    machine-epsilon
  48
  49    ;; compound :
  50    compound-data-p *compound-data-proto* compound-object-p
  51    compound-data-seq compound-data-length
  52    element-list element-seq
  53    sort-data order rank
  54    recursive-map-elements map-elements
  55    repeat
  56    check-sequence
  57    get-next-element make-next-element set-next-element
  58    sequencep iseq
  59    ordered-nneg-seq
  60    select which
  61    difference rseq
  62
  63    ;; lsmath.lsp
  64    ^ ** expt + - * / mod rem pmin pmax abs 1+ 1- log exp sqrt sin cos
  65    tan asin acos atan sinh cosh tanh asinh acosh atanh float random
  66    truncate floor ceiling round minusp zerop plusp evenp oddp < <= =
  67    /= >= > complex conjugate realpart imagpart phase min max
  68    logand logior logxor lognot ffloor fceiling ftruncate fround
  69    signum cis
  70
  71    ;; matrices.lisp
  72    matrixp num-rows num-cols matmult identity-matrix diagonal row-list
  73    column-list inner-product outer-product cross-product transpose
  74    bind-columns bind-rows
  75
  76    ;; linalg.lisp
  77    chol-decomp lu-decomp lu-solve determinant inverse
  78    sv-decomp qr-decomp rcondest make-rotation spline
  79    kernel-dens kernel-smooth
  80    fft make-sweep-matrix sweep-operator ax+y eigen
  81    check-real
  82    covariance-matrix matrix print-matrix solve
  83    backsolve eigenvalues eigenvectors accumulate cumsum combine
  84    lowess
  85
  86    ;; in linalg.lisp, possibly not supported by matlisp
  87    spline kernel-dens kernel-smooth
  88
  89    ;; optimize.lsp
  90    newtonmax nelmeadmax
  91
  92    ;; lispstat-macros
  93    make-rv-function make-rv-function-1
  94
  95    ;; data.lisp
  96
  97
  98    ;; statistics.lsp
  99    open-file-dialog read-data-file read-data-columns load-data
 100    load-example *variables* *ask-on-redefine* def variables savevar
 101    undef standard-deviation quantile median interquartile-range
 102    fivnum covariance-matrix difference rseq matrix print-matrix solve
 103    backsolve eigenvalues eigenvectors accumulate cumsum combine
 104    lowess
 105
 106    ;; dists
 107    log-gamma set-seed
 108    uniform-rand normal-cdf normal-quant normal-dens
 109    normal-rand bivnorm-cdf cauchy-cdf cauchy-quant cauchy-dens
 110    cauchy-rand gamma-cdf gamma-quant gamma-dens gamma-rand
 111    chisq-cdf chisq-quant chisq-dens chisq-rand beta-cdf beta-quant
 112    beta-dens beta-rand t-cdf t-quant t-dens t-rand f-cdf f-quant
 113    f-dens f-rand poisson-cdf poisson-quant poisson-pmf poisson-rand
 114    binomial-cdf binomial-quant binomial-pmf binomial-rand
 115
 116 ;;; Here is where we have a problem -- lispstat core should be core
 117 ;;; data management and config problems, with packages providing
 118 ;;; specialized extensions to LispStat, i.e. regression, nonlin
 119 ;;; regression, bayesian regression via laplace approximation, etc.
 120
 121 ;;; The following could be considered "recommended packages", similar
 122 ;;; to the idea of the recommended packages in R.
 123
 124    ;; regression.lsp
 125    regression-model regression-model-proto x y intercept sweep-matrix
 126    basis weights included total-sum-of-squares residual-sum-of-squares
 127    predictor-names response-name case-labels
 128
 129    ;; nonlin.lsp
 130    nreg-model nreg-model-proto mean-function theta-hat epsilon
 131    count-limit verbose
 132
 133    ;; bayes.lsp
 134    bayes-model bayes-model-proto bayes-internals))
 135
 136 (defpackage :lisp-stat-user
 137   (:documentation "Experimentation package for LispStat.
 138 Serious work should be placed in a similar package elsewhere for
 139 reproducibility.  But this should hint as to what needs to be
 140 done for a user- or analysis-package.")
 141   (:nicknames :ls-user)
 142   (:use :common-lisp
 143         :lisp-stat)
 144   (:shadowing-import-from :lisp-stat
 145       slot-value call-method call-next-method
 146
 147       expt + - * / ** mod rem abs 1+ 1- log exp sqrt sin cos tan
 148       asin acos atan sinh cosh tanh asinh acosh atanh float random
 149       truncate floor ceiling round minusp zerop plusp evenp oddp
 150       < <= = /= >= > complex conjugate realpart imagpart phase
 151       min max logand logior logxor lognot ffloor fceiling
 152       ftruncate fround signum cis
 153
 154       <= float imagpart))