Data/book.lsp

   1
   2 ;;; From LispStat 1 : need to document source appropriately.
   3
   4 (in-package :lisp-stat-data-examples)
   5
   6 ;;; FIXME: Shutup compiler warnings, need to clean up and
   7 ;;; appropriately initialize.
   8
   9 ;;; Need to fix this up!
  10 ;;(load-data "tutorial")
  11 ;;(load-data "oxygen")
  12 ;;(load-data "puromycin")
  13 ;;(load-data "aircraft")
  14 ;;(load-data "leukemia")
  15 ;;(load-data "stackloss")
  16
  17 (def precipitation
  18      (list .77 1.74 .81 1.20 1.95 1.20 .47 1.43 3.37 2.20
  19             3.00 3.09 1.51 2.10 .52 1.62 1.31 .32 .59 .81
  20             2.81 1.87 1.18 1.35 4.75 2.48 .96 1.89 .90 2.05))
  21 (def urban (list 206 170 155 155 134 239 234 228 330 284
  22                  201 241 179 244 200 205 279 227 197 242 234))
  23 (def rural (list 108 152 129 146 174 194 152 223 231 131
  24                  142 173 155 220 172 148 143 158 108 136))
  25 (def hc (list .50 .65 .46 .41 .41 .39 .44 .55 .72  .64 .83  .38
  26               .38 .50 .60 .73 .83 .57 .34 .41 .37 1.02 .87 1.10
  27               .65 .43 .48 .41 .51 .41 .47 .52 .56  .70 .51  .52
  28               .57 .51 .36 .48 .52 .61 .58 .46 .47  .55))
  29 (def co (list  5.01 14.67  8.60 4.42 4.95  7.24  7.51 12.30
  30               14.59  7.98 11.53 4.10 5.21 12.10  9.62 14.97
  31               15.13  5.04  3.95 3.38 4.12 23.53 19.00 22.92
  32               11.20  3.81  3.45 1.85 4.10  2.26  4.74  4.29
  33                5.36 14.83  5.69 6.35 6.02  5.79  2.03  4.62
  34                6.78  8.43  6.02 3.99 5.22  7.47))
  35 (def age (list 19 21 24 24 24 25 32 33 35 37 37 44 50 51 52 55 57 62))
  36 (def cpk (list 520 300 480 1040 1360 580 440 180 490 520 380 640 360
  37                240 420 280 400 260))
  38 (def yield (list  9.2 12.4  5.0  8.9  9.2  6.0 16.3 15.2  9.4
  39                  12.4 14.5  8.6 12.7 14.0 12.3 18.2 18.0 16.9
  40                  12.9 16.4 12.1 14.6 16.0 14.7 20.8 20.6 18.7
  41                  10.9 14.3  9.2 12.6 13.0 13.0 18.3 16.0 13.0))
  42 (def variety (repeat (repeat (list 1 2 3) (list 3 3 3)) 4))
  43 (def density (repeat (list 1 2 3 4) (list 9 9 9 9)))
  44 (def abrasion-loss
  45      (list 372 206 175 154 136 112  55  45 221 166 164 113  82
  46             32 228 196 128  97  64 249 219 186 155 114 341 340
  47            283 267 215 148))
  48 (def gas1 (list 17.14 12.17 12.22 13.89 16.47 15.88 16.10 16.74 17.54 17.43
  49                 14.57 12.90 12.81 14.95 16.25 17.13 14.46 14.20 16.90 11.34
  50                 12.57 13.15 16.53 13.60 13.34 13.67 14.23 15.81 16.63 11.40
  51                 14.94 13.66  9.79 13.08 14.57 14.93 14.01 14.43 16.35 15.65
  52                 11.52 17.46 14.67 15.92 16.02 13.46 13.70 14.98 14.57 15.72))
  53 (def gas2 (list 24.57 24.79 22.21 25.84 25.35 22.19 24.37 21.32 22.74 23.35
  54                 25.10 28.03 29.09 29.34 24.41 25.12 25.27 27.46 27.65 27.95
  55                 21.67 22.15 24.36 26.32 24.05 28.27 26.57 26.10 24.35 30.04
  56                 25.18 27.42 24.50 23.21 25.10 23.59 26.98 22.64 25.27 25.84
  57                 27.18 24.69 26.35 23.05 23.37 25.46 28.84 22.14 25.42 21.76))
  58 (def flow (list 5.00 4.81 4.46 4.84 4.46 3.85 3.21 3.25 4.55
  59                 4.85 4.00 3.62 5.15 3.76 4.90 4.13 5.10 5.05
  60                 4.27 4.90 4.55 4.39 4.85 4.59 5.00 3.82 3.68
  61                 5.15 2.94 5.00 4.10 1.15 1.72 4.20 5.00))
  62 (def moist (list 21 20 16 18 16 18 12 12 13 13 17 24 11 10 17
  63                  14 14 14 20 12 11 10 16 17 17 17 15 17 21 21
  64                  21 26 21 17 11))
  65
  66 ;;; The following variable name, "ratio" causes major conflicts with
  67 ;;; reserved CL words.  I think that we need to ensure that we somehow
  68 ;;; use a generic name, which would allow for marking symbols as a
  69 ;;; "Lisp-3", i.e. with data-analysis-vars being the 3rd level of the
  70 ;;; lisp.
  71
  72 ;;(def ratio (list 2.4 2.4 2.4 2.5 3.2 3.1 3.2 2.7 2.7 2.7 2.7
  73 ;;                 2.8 2.5 2.6 2 2 2.0 1.9 2.1 1.9 2 2.0 2.0 2.2 2.4
  74 ;;                 2.4 2.4 2.2 2.2 1.9 2.4 3.5 3 3.5 3.2))