src/packages.lisp

   1 ;;; -*- mode: lisp -*-
   2
   3 ;;; Time-stamp: <2009-12-22 22:38:17 tony>
   4 ;;; Creation:   <2008-03-11 19:18:34 user>
   5 ;;; File:       packages.lisp
   6 ;;; Author:     AJ Rossini <blindglobe@gmail.com>
   7 ;;; Copyright:  (c)2007--2008, AJ Rossini.  BSD, LLGPL, or GPLv2, depending
   8 ;;;             on how it arrives.
   9 ;;; Purpose:    package structure description for lispstat
  10
  11 ;;; What is this talk of 'release'? Klingons do not make software
  12 ;;; 'releases'.  Our software 'escapes', leaving a bloody trail of
  13 ;;; designers and quality assurance people in its wake.
  14
  15 (in-package :cl-user)
  16
  17 ;;; Current structure, dependencies:
  18 #|
  19  (progn
  20    (ls-user :depends-on lisp-stat)
  21    (lisp-stat :depends-on '(cls-dataframe
  22                             cls-data
  23                             lisp-matrix
  24                             ))
  25    (cls-dataframe :depends-on cls-data)
  26 |#
  27
  28
  29
  30 ;;; Basics
  31
  32 (defpackage :lisp-stat-config
  33   (:documentation "global settings and variables. Probably need a
  34                    localization tool as well.")
  35   (:use :common-lisp)
  36   (:export *common-lisp-stat-version*
  37            *default-path* *lsos-files* *basic-files* *ls-files*
  38
  39            *cls-data-dir* *cls-home-dir* *cls-examples-dir*))
  40
  41 (defpackage :lisp-stat-object-system
  42   (:nicknames :ls-objects :lsos)
  43   (:use :common-lisp)
  44   (:shadow :call-method :call-next-method)
  45   (:export ls-object objectp *object* kind-of-p make-object
  46            *message-hook*
  47            *set-slot-hook* proto-slot-value self
  48            send call-next-method call-method
  49            defmeth defproto instance-slots proto-name))
  50
  51 ;;; -types and -float probably ought to be moved into a -numerics
  52 ;;; package.
  53
  54 (defpackage :lisp-stat-types
  55   (:documentation "Provides some typeing for LispStat, but is clearly
  56   a bit incomplete.")
  57   (:use :common-lisp)
  58   (:export fixnump
  59            check-nonneg-fixnum check-one-nonneg-fixnum
  60            check-one-fixnum check-one-real check-one-number))
  61
  62 (defpackage :lisp-stat-float
  63   (:use :common-lisp)
  64   (:export +stat-float-typing+ +stat-cfloat-typing+ +stat-float-template+
  65            machine-epsilon base-float makedouble
  66
  67            make-base-trans-fun-2 make-base-trans-fun
  68
  69            base-log base-exp base-expt base-sqrt base-sin base-cos
  70            base-tan base-asin base-acos base-atan base-sinh
  71            BASE-COSH BASE-TANH BASE-ASINH BASE-ACOSH BASE-ATANH
  72            BASE-ABS BASE-PHASE BASE-FFLOOR BASE-FCEILING BASE-FTRUNCATE
  73            BASE-FROUND BASE-SIGNUM BASE-CIS))
  74
  75 ;;; Probably should move into cls-data package.
  76
  77 (defpackage :lisp-stat-compound-data
  78   (:use :common-lisp
  79         :lisp-stat-object-system
  80         :lisp-stat-types)
  81   (:shadowing-import-from :lisp-stat-object-system
  82                           call-next-method call-method)
  83   (:export compound-data-p *compound-data-proto*
  84            compound-object-p
  85            compound-data-seq compound-data-length
  86            element-list element-seq
  87            sort-data order rank
  88            recursive-map-elements map-elements repeat
  89            check-sequence
  90            get-next-element make-next-element set-next-element
  91            ;; sequencep
  92            iseq ordered-nneg-seq
  93            select split-list which
  94            difference rseq
  95            flatten-list))
  96
  97 (defpackage :lisp-stat-macros
  98   (:use :common-lisp
  99         :lisp-stat-compound-data)
 100   (:export make-rv-function make-rv-function-1))
 101
 102 (defpackage :lisp-stat-basics
 103     (:use :common-lisp
 104           :lisp-stat-object-system
 105           :lisp-stat-types
 106           :lisp-stat-float
 107           :lisp-stat-macros
 108           :lisp-stat-compound-data)
 109   (:shadowing-import-from :lisp-stat-object-system
 110                           call-method call-next-method)
 111   (:export permute-array sum prod count-elements mean
 112            if-else sample))
 113
 114 (defpackage :lisp-stat-float
 115   (:use :common-lisp)
 116   (:export +stat-float-typing+ +stat-cfloat-typing+ +stat-float-template+
 117            machine-epsilon base-float makedouble
 118
 119            make-base-trans-fun-2 make-base-trans-fun
 120
 121            BASE-LOG BASE-EXP BASE-EXPT BASE-SQRT BASE-SIN BASE-COS
 122            BASE-TAN BASE-ASIN BASE-ACOS BASE-ATAN BASE-SINH
 123            BASE-COSH BASE-TANH BASE-ASINH BASE-ACOSH BASE-ATANH
 124            BASE-ABS BASE-PHASE BASE-FFLOOR BASE-FCEILING BASE-FTRUNCATE
 125            BASE-FROUND BASE-SIGNUM BASE-CIS))
 126
 127 (defpackage :lisp-stat-macros
 128   (:use :common-lisp
 129         :lisp-stat-compound-data)
 130   (:export make-rv-function make-rv-function-1))
 131
 132
 133 (defpackage :cls-matrix
 134   (:documentation "basic utilities for using lisp arrays as numerical
 135   matrices.  Not optimized, and must consider this slow.  Routines
 136   should be optimized, it is only that we need them first, optimize
 137   them later.")
 138   (:use :common-lisp)
 139   (:export matrixp num-rows num-cols matmult identity-matrix diagonal
 140            row-list column-list inner-product outer-product
 141            cross-product transpose bind-columns bind-rows
 142            array-data-vector vector-to-array))
 143
 144
 145 ;;; NEW CLOS STRUCTURE
 146
 147 ;; CLS-DATA contains the basic variable structure, classes, support/indexing, and mixins.
 148 ;; CLS-DATAFRAME leverages CLS-DATA, XARRAY, and LISP-MATRIX
 149 ;; CLS-DATAIO stores/saves structures
 150 ;; CLS-DATATRANS converts between structures, and from DATAFRAMES to MODEL-MATRIXES
 151
 152 (defpackage :cls-data
 153   (:use :common-lisp)
 154   (:shadowing-import-from :xarray slice)
 155   (:export
 156
 157    ))
 158
 159 ;;; cls-data... in dataframe, though.
 160 (defpackage :cls-dataframe
 161   (:use :common-lisp
 162         :cls-data
 163         :xarray
 164         :lisp-matrix)
 165   (:shadowing-import-from :xarray slice)
 166   (:export
 167    ;; generic container class for data -- if small enough
 168    ;; could be value, otherwise might be reference.
 169    dataframe-like
 170    dataframe-array
 171    make-dataframe
 172
 173    dataset
 174    list-of-columns ;; list-of-variables
 175    list-of-rows ;; list-of-observations
 176
 177    ;; accessors
 178    varlabels caselabels  nrows ncols
 179    dataframe-dimension dataframe-dimensons
 180    xref xtype xdims xdim xrank slice take carray
 181
 182
 183  ))
 184
 185 (defpackage :cls-dataio
 186   (:documentation "Data I/O and similar import technologies.")
 187   (:use :common-lisp
 188         :lisp-stat-object-system
 189         :cls-data
 190         :cls-dataframe
 191         :rsm.string)
 192   (:shadowing-import-from :lisp-stat-object-system
 193                           call-method call-next-method)
 194   (:export dsvstream->dataframe dsvstream->matrix dsvstream->listoflist))
 195
 196 (defpackage :cls-datatrans
 197   (:documentation "Data I/O and similar import technologies.")
 198   (:use :common-lisp
 199         :lisp-stat-object-system
 200         :cls-data
 201         :cls-dataframe
 202         :rsm.string)
 203   (:shadowing-import-from :lisp-stat-object-system
 204                           call-method call-next-method)
 205   (:export dsvstream->dataframe dsvstream->matrix dsvstream->listoflist
 206
 207            listoflist->dataframe
 208            listoflist->array
 209            listoflist->matrix-like
 210            filename.dsv->dataframe   ))
 211
 212 ;;;; MODELING
 213
 214 (defpackage :lisp-stat-model
 215   (:documentation "Model management for data analysis.")
 216   (:use :common-lisp
 217         :lisp-matrix)
 218   (:export
 219    ;; data structures for model and model/data combination
 220    model statistical-model analysis))
 221
 222 ;;; visualization
 223
 224 (defpackage :cls-visualize
 225   (:use :common-lisp
 226         :lisp-matrix
 227         :cls-dataframe)
 228   (:shadowing-import-from :xarray slice)
 229   )
 230
 231 #|
 232 (defpackage :cls-visualize-plplot
 233   (:use :common-lisp
 234         :lisp-matrix
 235         :cls-dataframe
 236         :cl-plplot-system)
 237   (:export
 238    ;; examples
 239    plot-ex contour-plot-ex fn-contour-plot-ex shade-plot-ex 3D-plot-ex))
 240 |#
 241
 242 ;;; USER PACKAGES
 243
 244 (defpackage :lisp-stat-ffi-int
 245   (:use :common-lisp
 246         :cffi)
 247   (:export ccl-store-integer ccl-store-double ccl-store-ptr
 248            get-buf ))
 249
 250 (defpackage :lisp-stat-probability
 251   (:use :common-lisp
 252         :cffi
 253         :lisp-stat-ffi-int
 254         :lisp-stat-macros)
 255   (:export log-gamma set-seed
 256            uniform-rand
 257            normal-cdf normal-quant normal-dens normal-rand
 258            bivnorm-cdf
 259            cauchy-cdf cauchy-quant cauchy-dens cauchy-rand
 260            gamma-cdf gamma-quant gamma-dens gamma-rand
 261            chisq-cdf chisq-quant chisq-dens chisq-rand
 262            beta-cdf beta-quant beta-dens beta-rand
 263            t-cdf t-quant t-dens t-rand
 264            f-cdf f-quant f-dens f-rand
 265            poisson-cdf poisson-quant poisson-pmf poisson-rand
 266            binomial-cdf binomial-quant binomial-pmf binomial-rand))
 267
 268
 269
 270 (defpackage :lisp-stat-math
 271    (:use :common-lisp
 272          :lisp-stat-object-system
 273          :lisp-stat-macros
 274          :lisp-stat-compound-data
 275          :lisp-stat-float)
 276    (:shadowing-import-from :lisp-stat-object-system
 277                            call-method call-next-method)
 278    (:shadow expt + - * / ** mod rem abs 1+ 1- log exp sqrt sin cos tan
 279            asin acos atan sinh cosh tanh asinh acosh atanh float random
 280            truncate floor ceiling round minusp zerop plusp evenp oddp
 281            < <= = /= >= > ;; complex
 282            conjugate realpart imagpart phase
 283            min max logand logior logxor lognot ffloor fceiling
 284            ftruncate fround signum cis)
 285    (:export ^ ** expt + - * / mod rem pmin pmax abs 1+ 1- log exp sqrt sin cos
 286            tan asin acos atan sinh cosh tanh asinh acosh atanh float random
 287            truncate floor ceiling round minusp zerop plusp evenp oddp < <= =
 288            /= >= > ;; complex
 289            conjugate realpart imagpart phase min max
 290            logand logior logxor lognot ffloor fceiling ftruncate fround
 291            signum cis)
 292    (:documentation "Vectorization of numerical functions"))
 293
 294
 295 #| ;; some of this goes back in, but not all of it?
 296 (defpackage :lisp-stat-linalg
 297   (:use :common-lisp
 298         :cffi
 299         :lisp-matrix
 300         :lisp-stat-math
 301         :lisp-stat-types
 302         :lisp-stat-float
 303         :lisp-stat-compound-data)
 304   (:shadowing-import-from :lisp-stat-math
 305           expt + - * / ** mod rem abs 1+ 1- log exp sqrt sin cos tan
 306           asin acos atan sinh cosh tanh asinh acosh atanh float random
 307           truncate floor ceiling round minusp zerop plusp evenp oddp
 308           < <= = /= >= > complex conjugate realpart imagpart phase
 309           min max logand logior logxor lognot ffloor fceiling
 310           ftruncate fround signum cis)
 311   (:export chol-decomp lu-decomp lu-solve determinant inverse
 312            sv-decomp qr-decomp rcondest make-rotation spline
 313            kernel-dens kernel-smooth
 314            fft make-sweep-matrix sweep-operator ax+y eigen
 315
 316            check-real ;; for optimize
 317
 318            covariance-matrix matrix print-matrix solve
 319            backsolve eigenvalues eigenvectors accumulate cumsum combine
 320            lowess))
 321
 322 |#
 323
 324
 325
 326
 327 (defpackage :lisp-stat-data
 328   (:documentation "Data management, integration, I/O, and other data technologies.")
 329   (:nicknames :ls-data)
 330   (:use :common-lisp
 331         :lisp-stat-object-system
 332         :lisp-stat-config
 333         :lisp-stat-types
 334         :lisp-stat-compound-data)
 335   (:shadowing-import-from :lisp-stat-object-system
 336                           call-method call-next-method)
 337   (:export
 338    ;; generic structures
 339    ;; Variables
 340    empirical-statistical-variable
 341    modelbased-statistical-variable
 342    categorical-statistical-variable
 343    nominal-statistical-variable
 344    ordinal-statistical-variable
 345    continuous-statistical-variable
 346
 347    ordering factor-levels nobs support pdmf draw
 348    print-object
 349
 350    ;; Observations
 351    statistical-observation
 352    measurement-types record
 353    ;; XLS compat tools
 354    open-file-dialog read-data-file read-data-columns load-data
 355            load-example *variables* *ask-on-redefine*
 356            def variables savevar undef))
 357
 358 (defpackage :lisp-stat-descriptive-statistics
 359  (:use :common-lisp
 360        :lisp-matrix
 361        :lisp-stat-data
 362        :lisp-stat-math
 363        :lisp-stat-compound-data
 364        :lisp-stat-basics)
 365    (:shadowing-import-from :lisp-stat-math ;; life is a vector!
 366       expt + - * / ** mod rem abs 1+ 1- log exp sqrt sin cos tan
 367       asin acos atan sinh cosh tanh asinh acosh atanh float random
 368       truncate floor ceiling round minusp zerop plusp evenp oddp
 369       < <= = /= >= > ;; complex
 370       conjugate realpart imagpart phase
 371       min max logand logior logxor lognot ffloor fceiling
 372       ftruncate fround signum cis)
 373    (:export mean standard-deviation variance
 374             quantile median interquartile-range
 375             fivnum sample))
 376
 377 (defpackage :lisp-stat-regression-linear
 378   (:use :common-lisp
 379         :lisp-matrix
 380         :lisp-stat-basics
 381         :lisp-stat-compound-data
 382         :lisp-stat-descriptive-statistics )
 383   (:shadowing-import-from :lisp-stat-object-system
 384                           call-method call-next-method)
 385   (:export regression-model fit-model
 386
 387            estimates covariance-matrix
 388            ;; functions for helpers
 389            lm xtxinv
 390            print-object ;; for method dispatch
 391            ))
 392
 393 (defpackage :common-lisp-statistics
 394   (:documentation "Experimentation package for LispStat.  Serious work
 395     should be packaged up as a separate but similar package to help
 396     drive reproducibility.  By this I mean, creating a
 397     data/analytics/analysis package with the minimal set of
 398     objects/packages required.")
 399   (:nicknames :cls :common-lisp-statistics :lisp-stat)
 400   (:use :common-lisp
 401         :xarray ;; generic reference -- internally supporting array, lol structs
 402         :listoflist
 403         :lisp-matrix ;; conversion to a more robust linalg approach
 404         :lisp-stat-config
 405         :lisp-stat-object-system
 406         :lisp-stat-compound-data
 407         :lisp-stat-probability
 408         :lisp-stat-types
 409         :lisp-stat-float
 410         :lisp-stat-basics
 411         :lisp-stat-data
 412         :cls-dataframe
 413         :cls-data
 414         :lisp-stat-math
 415         :lisp-stat-descriptive-statistics
 416         :lisp-stat-regression-linear
 417         :cls-visualize
 418         ;; :cybertiggyr-dsv
 419         ;; :cls-visualize-plplot
 420         )
 421   (:shadowing-import-from :xarray slice)
 422   (:shadowing-import-from :lisp-stat-object-system
 423                           call-method call-next-method)
 424   (:shadowing-import-from :lisp-stat-math
 425         expt + - * / ** mod rem abs 1+ 1- log exp sqrt sin cos tan
 426         asin acos atan sinh cosh tanh asinh acosh atanh float random
 427         truncate floor ceiling round minusp zerop plusp evenp oddp
 428         < <= = /= >= >
 429         ;;complex
 430         conjugate realpart imagpart phase
 431
 432         min max
 433         logand logior logxor lognot
 434         ffloor fceiling ftruncate fround
 435         signum cis)
 436   (:export
 437    ;; lisp-stat-config:
 438    *default-path* *lsos-files* *basic-files* *ls-files*
 439 l   *cls-home-dir* *cls-data-dir* *cls-examples-dir*
 440
 441    ;; lsobjects :
 442    defproto defproto2
 443    defmeth send proto-slot-value
 444
 445    ;; lstypes :
 446    fixnump check-nonneg-fixnum check-one-fixnum
 447    check-one-nonneg-fixnum
 448    check-one-real check-one-number
 449
 450    ;; lsmacros:
 451
 452    ;; lsfloat :
 453    machine-epsilon
 454
 455    ;; compound :
 456    compound-data-p *compound-data-proto* compound-object-p
 457    compound-data-seq compound-data-length
 458    element-list element-seq
 459    sort-data order rank
 460    recursive-map-elements map-elements
 461    repeat
 462    check-sequence
 463    get-next-element make-next-element set-next-element
 464    ;; sequencep
 465    iseq
 466    ordered-nneg-seq
 467    select which
 468    difference rseq
 469
 470    ;; lsmath.lsp
 471    ^ ** expt + - * / mod rem pmin pmax abs 1+ 1- log exp sqrt sin cos
 472    tan asin acos atan sinh cosh tanh asinh acosh atanh float random
 473    truncate floor ceiling round minusp zerop plusp evenp oddp < <= =
 474    /= >= > ;; complex
 475    conjugate realpart imagpart phase min max
 476    logand logior logxor lognot ffloor fceiling ftruncate fround
 477    signum cis
 478
 479 #| ;; The following need to be re-found in lisp-matrix...
 480
 481    ;; matrices.lisp
 482    matrixp num-rows num-cols matmult identity-matrix diagonal row-list
 483    column-list inner-product outer-product cross-product transpose
 484    bind-columns bind-rows
 485
 486    ;; linalg.lisp
 487    chol-decomp lu-decomp lu-solve determinant inverse
 488    sv-decomp qr-decomp rcondest make-rotation spline
 489    kernel-dens kernel-smooth
 490    fft make-sweep-matrix sweep-operator ax+y eigen
 491    check-real
 492    covariance-matrix matrix print-matrix solve
 493    backsolve eigenvalues eigenvectors accumulate cumsum combine
 494    lowess
 495
 496    ;; in linalg.lisp, possibly not supported by matlisp
 497    spline kernel-dens kernel-smooth
 498
 499 |#
 500
 501    ;; optimize.lsp
 502    newtonmax nelmeadmax
 503
 504    ;; lispstat-macros
 505    make-rv-function make-rv-function-1
 506
 507    ;; xarray
 508    xref xtype xdims xdim xdims*
 509
 510    ;; listoflist
 511    sublists-of-same-size-p equal-listoflist transpose-listoflist
 512
 513    ;; data
 514    ;; need to take this list and make it strings...  specs could mean
 515    ;; that we process the strings in different ways?
 516 #|
 517    (let ((lst ()))
 518      (unlist
 519        (mapc #'symbol-for-symbol-to-string-or-symbol
 520          (do-external-symbols (s (find-package 'lisp-stat-data) lst) (push s lst))))
 521      lst)
 522 |#
 523    open-file-dialog read-data-file read-data-columns load-data
 524    load-example *variables* *ask-on-redefine*
 525    def variables savevar undef
 526    ;; dataframe
 527    dataframe-like dataframe-array make-dataframe
 528    varlabels caselabels nrows ncols
 529    dataframe-dimension dataframe-dimensons
 530    dfref dfref-case dfref-var
 531    consistent-dataframe-p
 532    dataset list-of-columns list-of-rows
 533
 534    ;; listoflist
 535    listoflist->dataframe listoflist->array listoflist->matrix-like
 536
 537    ;; statistics.lsp  (descriptions, should probably be moved
 538    ;; later...?
 539    standard-deviation quantile median interquartile-range
 540    fivnum sample
 541
 542    ;; probability (dists.lisp)
 543    log-gamma set-seed
 544    uniform-rand normal-cdf normal-quant normal-dens
 545    normal-rand bivnorm-cdf cauchy-cdf cauchy-quant cauchy-dens
 546    cauchy-rand gamma-cdf gamma-quant gamma-dens gamma-rand
 547    chisq-cdf chisq-quant chisq-dens chisq-rand beta-cdf beta-quant
 548    beta-dens beta-rand t-cdf t-quant t-dens t-rand f-cdf f-quant
 549    f-dens f-rand poisson-cdf poisson-quant poisson-pmf poisson-rand
 550    binomial-cdf binomial-quant binomial-pmf binomial-rand
 551
 552    ;; Here is where we have a problem -- lispstat core should be core
 553    ;; data management and config problems, with packages providing
 554    ;; specialized extensions to LispStat, i.e. regression, nonlin
 555    ;; regression, bayesian regression via laplace approximation, etc.
 556
 557    ;; The following could be considered "recommended packages",
 558    ;; similar to the idea of the recommended packages in R.  Probably
 559    ;; we want them to do the exporting within that package, therefore
 560    ;; NOT being able to lock the "data-ish" package, but only the
 561    ;; subpackages prior to export.
 562
 563    ;; regression.lsp
 564    ;; -- linear regressin models.
 565    regression-model fit-model
 566    estimates covariance-matrix
 567
 568    regression-model-proto x y intercept sweep-matrix
 569    basis weights included total-sum-of-squares residual-sum-of-squares
 570    predictor-names response-name case-labels
 571    lm xtxinv
 572
 573    ;; nonlin.lsp
 574    ;; -- nonlinear regression models
 575    nreg-model nreg-model-proto mean-function theta-hat epsilon
 576    count-limit verbose
 577    ;; we might need something like xtxinv here?  But should be
 578    ;; encapsulated, so we use the one in regression.lisp
 579
 580    ;; bayes.lsp
 581    bayes-model bayes-model-proto bayes-internals
 582
 583    ;; plots.lisp
 584    plot-ex
 585    contour-plot-ex
 586    fn-contour-plot-ex
 587    shade-plot-ex
 588    3D-plot-ex
 589
 590    ))
 591
 592
 593 ;;;; PACKAGES FOR USEABILITY
 594
 595 (defpackage :lisp-stat-data-examples
 596   (:documentation "Example data for unittests, examples, illustrations,")
 597   (:use :common-lisp
 598         :common-lisp-statistics)
 599   (:shadowing-import-from :lisp-stat
 600                           call-method call-next-method
 601
 602       expt + - * / ** mod rem abs 1+ 1- log exp sqrt sin cos tan
 603       asin acos atan sinh cosh tanh asinh acosh atanh float random
 604       truncate floor ceiling round minusp zerop plusp evenp oddp
 605       < <= = /= >= > > ;; complex
 606       conjugate realpart imagpart phase
 607       min max logand logior logxor lognot ffloor fceiling
 608       ftruncate fround signum cis
 609
 610       <= float imagpart)
 611   (:export iron aluminum absorbtion
 612            diabetes dlabs))
 613
 614
 615 (defpackage :lisp-stat-user
 616   (:documentation "Experimentation package for LispStat.  Serious work
 617     should be placed in a similar package elsewhere for
 618     reproducibility.  But this should hint as to what needs to be done
 619     for a user- or analysis-package.")
 620   (:nicknames :ls-user :cls-user)
 621   (:use :common-lisp ; always needed for user playgrounds!
 622         :lisp-matrix
 623         :common-lisp-statistics
 624         :lisp-stat-data-examples) ;; this last is to have 'things to play with'
 625   (:shadowing-import-from :lisp-stat
 626                           call-method call-next-method
 627
 628       expt + - * / ** mod rem abs 1+ 1- log exp sqrt sin cos tan
 629       asin acos atan sinh cosh tanh asinh acosh atanh float random
 630       truncate floor ceiling round minusp zerop plusp evenp oddp
 631       < <= = /= >= > > ;; complex
 632       conjugate realpart imagpart phase
 633       min max logand logior logxor lognot ffloor fceiling
 634       ftruncate fround signum cis
 635
 636       <= float imagpart))
 637
 638 (defpackage :lisp-stat-unittests
 639   (:use :common-lisp
 640         :lift :lisp-matrix
 641         :lisp-stat :lisp-stat-data-examples)
 642   (:shadowing-import-from :lisp-stat
 643                           call-method call-next-method ;; objects
 644         expt + - * / ** mod rem abs 1+ 1- log exp sqrt sin cos tan ;; lsmath
 645         asin acos atan sinh cosh tanh asinh acosh atanh float random
 646         truncate floor ceiling round minusp zerop plusp evenp oddp
 647         < <= = /= >= > ;; complex
 648         conjugate realpart imagpart phase
 649         min max logand logior logxor lognot ffloor fceiling
 650         ftruncate fround signum cis)
 651   (:export run-lisp-stat-tests run-lisp-stat-test scoreboard ; exec
 652            almost= almost=lists numerical=)) ; compare
 653
 654 (defpackage :cls-dataframe-example
 655   (:use :common-lisp
 656         :lift  :lisp-stat-unittests
 657         :lisp-stat-data-examples
 658         :cls-dataframe)
 659   (:export absorbtion aluminum iron))
 660
 661
 662 (defpackage :lisp-stat-optimize
 663  (:use :common-lisp
 664        :cffi
 665        :lisp-matrix
 666        :lisp-stat-ffi-int
 667        :lisp-stat-object-system
 668        :lisp-stat-types
 669        :lisp-stat-compound-data
 670        :lisp-stat-math
 671        :lisp-stat-float
 672        :lisp-stat-basics
 673 #|
 674        :lisp-stat-matrix
 675        :lisp-stat-linalg-data
 676        :lisp-stat-linalg
 677 |#
 678        )
 679  (:shadowing-import-from :lisp-stat-object-system
 680                          call-method call-next-method)
 681  (:shadowing-import-from :lisp-stat-math
 682            expt + - * / ** mod rem abs 1+ 1- log exp sqrt sin cos tan
 683            asin acos atan sinh cosh tanh asinh acosh atanh float random
 684            truncate floor ceiling round minusp zerop plusp evenp oddp
 685            < <= = /= >= > complex conjugate realpart imagpart phase
 686            min max logand logior logxor lognot ffloor fceiling
 687            ftruncate fround signum cis)
 688  (:export
 689      ;; derivatives
 690      numgrad numhess
 691
 692      ;; optimization
 693      newtonmax nelmeadmax))