src/packages.lisp

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