_ (PPA S)
    MEASURES ON A DOZEN EGGS

        VARIABLE
EGG         LENGTH     WIDTH    VOLUME       ROW    FURROW     COLOR
       1      .766      .636     2.031      BACK     1.000     BROWN
       2      .735      .620     1.982      BACK     2.000     WHITE
       3      .742      .628     1.995      BACK     3.000     WHITE
       4      .760      .628     2.019      BACK     4.000     BROWN
       5      .786      .624     2.031      BACK     5.000     BROWN
       6      .754      .616     1.956      BACK     6.000     BROWN
       7      .775      .616     2.007     FRONT     1.000     WHITE
       8      .772      .624     1.995     FRONT     2.000     WHITE
       9      .789      .611     1.995     FRONT     3.000     BROWN
      10      .766      .607     1.995     FRONT     4.000     WHITE
      11      .769      .616     1.995     FRONT     5.000     BROWN
      12      .748      .624     2.007     FRONT     6.000     BROWN
[Array 1: EGG=12 VARIABLE=6]


_ [PPA (MPROD (QUOTE ((2 -1 3)
                      (1 -2 -1)))
              (QUOTE ((3 -1)
                      (1 2)
                      (-1 1]
    Matrix product of Array 4 and 
    Array 5
         2        -1
         2        -6
[Array 6: 1=2 2=2]


_ [PPA (TRANSLATE [AT S (QUOTE ((FURROW]
                  (QUOTE ((NIL 2 1)
                          (3 4 2)
                          (5 NIL 3]
    Translate of Selected VARIABLES
    from MEASURES ON A DOZEN EGGS
    and Array 10

        VARIABLE
EGG         FURROW
       1         1
       2         1
       3         2
       4         2
       5         3
       6         3
       7         1
       8         1
       9         2
      10         2
      11         3
      12         3
[Array 11: EGG=12 VARIABLE=1]


_ [SETQ TABLE (COUNTS (GROUP (AT S (QUOTE (ALL (ROW COLOR]
[Array 16: ROW=2 COLOR=2]


_ (PPA TABLE)
    Counts of Group of 1 by 
    Selected VARIABLES from 
    MEASURES ON A DOZEN EGGS
    keeping ROW and COLOR

        COLOR
ROW          BROWN     WHITE
    BACK         4         2
   FRONT         3         3
[Array 16: ROW=2 COLOR=2]


_ (SETQ ROWTOT (RPLUS (KEEP TABLE 1)))
[Array 19: ROW=2]


_ (PPA ROWTOT)
    Rplus of Counts of Group of 1
    by Selected VARIABLES from 
    MEASURES ON A DOZEN EGGS
    keeping ROW and COLOR keeping 
    ROW
ROW
      BACK     FRONT
         6         6
[Array 19: ROW=2]


_ (SETQ COLTOT (RPLUS (KEEP TABLE 2)))
[Array 22: COLOR=2]


_ (PPA COLTOT)
    Rplus of Counts of Group of 1
    by Selected VARIABLES from 
    MEASURES ON A DOZEN EGGS
    keeping ROW and COLOR keeping 
    COLOR
COLOR
     BROWN     WHITE
         7         5
[Array 22: COLOR=2]


_ (PPA (QUOTIENT (KEEP TABLE 2)
                 COLTOT))
    Quotient of Counts of Group of 
    1 by Selected VARIABLES from 
    MEASURES ON A DOZEN EGGS
    keeping ROW and COLOR keeping 
    COLOR and Rplus of Counts of 
    Group of 1 by Selected 
    VARIABLES from MEASURES ON A
    DOZEN EGGS keeping ROW and 
    COLOR keeping COLOR

        COLOR
ROW          BROWN     WHITE
    BACK      .571      .400
   FRONT      .429      .600
[Array 26: ROW=2 COLOR=2]


_ (SETQ D (DEAL 7))
[Array 27: 1=7]


_ (PPA D)
    Deal of 7
         2         7         3         4         6         5         1
[Array 27: 1=7]


_ (SETQ L (GENVEC 1 13))
[Array 28: 1=13]


_ (PPA L)
    1->13
1
         1         2         3         4         5         6         7
         1         2         3         4         5         6         7
1
         8         9        10        11        12        13
         8         9        10        11        12        13

[Array 28: 1=13]


_ [PPA (RESHAPE L (QUOTE (5 2 2]
    Values from 1->13

1 = 1
        3
2                1         2
       1         1         2
       2         3         4


1 = 2
        3
2                1         2
       1         5         6
       2         7         8


1 = 3
        3
2                1         2
       1         9        10
       2        11        12


1 = 4
        3
2                1         2
       1        13         1
       2         2         3


1 = 5
        3
2                1         2
       1         4         5
       2         6         7

[Array 30: 1=5 2=2 3=2]


_ (SETQ NEWS (COPY S))
[Array 32: EGG=12 VARIABLE=6]


_ (ASSIGN (AT NEWS (LABEL 2 (QUOTE FURROW)))
          (QUOTE HALF))
HALF


_ [ASSIGN (AT NEWS (QUOTE (ALL HALF)))
          ([ELAMBDA ((A SCALAR))
             (COND
               ((LESSP A 4)
                 1)
               (T 2))]
           (AT NEWS (QUOTE (ALL HALF]
[Array 35: EGG=12]


_ [ASSIGN (AT NEWS (CODE (QUOTE HALF)))
          (QUOTE ((1 LEFT)
                  (2 RIGHT]
((1 LEFT) (2 RIGHT))


_ (PPA NEWS)
    Copy of MEASURES ON A DOZEN EGGS

        VARIABLE
EGG         LENGTH     WIDTH    VOLUME       ROW      HALF     COLOR
       1      .766      .636     2.031      BACK      LEFT     BROWN
       2      .735      .620     1.982      BACK      LEFT     WHITE
       3      .742      .628     1.995      BACK      LEFT     WHITE
       4      .760      .628     2.019      BACK     RIGHT     BROWN
       5      .786      .624     2.031      BACK     RIGHT     BROWN
       6      .754      .616     1.956      BACK     RIGHT     BROWN
       7      .775      .616     2.007     FRONT      LEFT     WHITE
       8      .772      .624     1.995     FRONT      LEFT     WHITE
       9      .789      .611     1.995     FRONT      LEFT     BROWN
      10      .766      .607     1.995     FRONT     RIGHT     WHITE
      11      .769      .616     1.995     FRONT     RIGHT     BROWN
      12      .748      .624     2.007     FRONT     RIGHT     BROWN
[Array 32: EGG=12 VARIABLE=6]


_ [SETQ PAR (MOMENTS (GROUP [AT NEWS (QUOTE (ALL (ROW HALF]
                            (AT NEWS (QUOTE (ALL VOLUME]
[Array 44: ROW=2 HALF=2 Moment=3]


_ (SETQQ PRECISION (3 7))
(3 7)


_ (PPA PAR)
    Moments of Group of VARIABLE VOLUME from 
    Copy of MEASURES ON A DOZEN EGGS by 
    Selected VARIABLES from Copy of MEASURES ON
    A DOZEN EGGS keeping ROW and HALF

ROW = BACK
        Moment
HALF                N         Mean     Variance
    LEFT    3.0000000    2.0026667     .0006443
   RIGHT    3.0000000    2.0020000     .0016230


ROW = FRONT
        Moment
HALF                N         Mean     Variance
    LEFT    3.0000000    1.9990000     .0000480
   RIGHT    3.0000000    1.9990000     .0000480

[Array 44: ROW=2 HALF=2 Moment=3]


_ (SETQQ PRECISION (4 3))
(4 3)


_ (SETQ AN.VAR (ANOVA PAR))
[Array 46: Source=5 Column=5]


_ (PPA AN.VAR)
    Anova of Moments of Group of VARIABLE VOLUME from Copy
    of MEASURES ON A DOZEN EGGS by Selected VARIABLES from
    Copy of MEASURES ON A DOZEN EGGS keeping ROW and HALF

        Column
Source       SumSq        df        MS         F         p
Gnd-mean    48.032     1.000    48.032 81295.353     0.000
     ROW      .000     1.000      .000      .056      .818
    HALF      .000     1.000      .000      .001      .982
     R*H      .000     1.000      .000      .001      .982
   Error      .005     8.000      .001       NIL       NIL
[Array 46: Source=5 Column=5]


_ [PPA (QUOTIENT TABLE (RPLUS (KEEP TABLE 1]
    Quotient of Counts of Group of 
    1 by Selected VARIABLES from 
    MEASURES ON A DOZEN EGGS
    keeping ROW and COLOR and Rplus
    of Counts of Group of 1 by 
    Selected VARIABLES from 
    MEASURES ON A DOZEN EGGS
    keeping ROW and COLOR keeping 
    ROW

        COLOR
ROW          BROWN     WHITE
    BACK      .667      .333
   FRONT      .500      .500
[Array 52: ROW=2 COLOR=2]


_ [SETQ CR (COVAR (AT S (QUOTE (ALL (WIDTH LENGTH VOLUME]
[Array 54: VARIABLE=4 VARIABLE=4]


_ (PPA CR)
    Covariations of Selected VARIABLES from 
    MEASURES ON A DOZEN EGGS

        VARIABLE
VARIABLE     WIDTH    LENGTH    VOLUME  Constant
   WIDTH      .001
  LENGTH     -.000      .003
  VOLUME      .001      .002      .005
Constant      .621      .763     2.001     -.083
[Array 54: VARIABLE=4 VARIABLE=4]


_ (PPA (NORM CR))
    Correlations of Selected VARIABLES
    from MEASURES ON A DOZEN EGGS

        VARIABLE
VARIABLE     WIDTH    LENGTH    VOLUME
   WIDTH     1.000
  LENGTH     -.257     1.000
  VOLUME      .555      .398     1.000
[Array 55: VARIABLE=3 VARIABLE=3]


_ (SETQ REGR (SWEEP CR 1))
[Array 56: VARIABLE=4 VARIABLE=4]


_ (PPA REGR)
    Sweep of Crossproducts of Selected VARIABLES
    from MEASURES ON A DOZEN EGGS, Swept out: 
    Constant WIDTH

        VARIABLE
VARIABLE     WIDTH    LENGTH    VOLUME  Constant
   WIDTH -1390.918
  LENGTH     -.527      .003
  VOLUME     1.427      .002      .003
Constant   863.401     1.091     1.115  -536.032
[Array 56: VARIABLE=4 VARIABLE=4]


_ (SETQ REGR (SWEEP REGR (QUOTE LENGTH)))
[Array 57: VARIABLE=4 VARIABLE=4]


_ (PPA REGR)
    Sweep of Crossproducts of Selected VARIABLES
    from MEASURES ON A DOZEN EGGS, Swept out: 
    Constant LENGTH WIDTH

        VARIABLE
VARIABLE     WIDTH    LENGTH    VOLUME  Constant
   WIDTH -1489.548
  LENGTH  -187.122  -355.010
  VOLUME     1.811      .728      .002
Constant  1067.473   387.169      .321  -958.274
[Array 57: VARIABLE=4 VARIABLE=4]


_ (SETQ REGR (SWEEP REGR NIL 2))
[Array 58: VARIABLE=4 VARIABLE=4]


_ (PPA REGR)
    Sweep of Crossproducts of Selected VARIABLES
    from MEASURES ON A DOZEN EGGS, Swept out: 
    Constant WIDTH

        VARIABLE
VARIABLE     WIDTH    LENGTH    VOLUME  Constant
   WIDTH -1390.918
  LENGTH     -.527      .003
  VOLUME     1.427      .002      .003
Constant   863.401     1.091     1.115  -536.032
[Array 58: VARIABLE=4 VARIABLE=4]


_ [SETQ COEF (AT REGR (QUOTE (VOLUME WIDTH]
[Scalar 59: 1.427315]


_ [SETQ CONST (AT REGR (QUOTE (VOLUME Constant]
[Scalar 60: 1.114673]


_ (SETQ RESID (DIFFERENCE (AT S (QUOTE (ALL VOLUME)))
                          (PLUS [TIMES COEF (AT S (QUOTE (ALL WIDTH]
                                CONST)))
[Array 69: EGG=12]


_ (PPA RESID)
    Difference of VARIABLE VOLUME from MEASURES ON A DOZEN EGGS and Plus of 
    Times of 1.427315 and VARIABLE WIDTH from MEASURES ON A DOZEN EGGS and 
    1.114673
EGG
         1         2         3         4         5         6         7
      .009     -.017     -.016      .008      .026     -.037      .014
EGG
         8         9        10        11        12
     -.010      .008      .014      .002      .002

[Array 69: EGG=12]


_ (PLOT RESID)

                Plot of Difference of VARIABLE VOLUME from MEASURES ON A DOZEN
                EGGS and Plus of Times of 1.427315 and VARIABLE WIDTH from 
                MEASURES ON A DOZEN EGGS and 1.114673 and 1 -> 12

.026   |                    *
       |
       |
       |
       |
       |
       |                              *              *
       |
       |
       |*              *                        *
       |
       |
       |                                                  *    *
       |
       |
       |
-.006  |
       |
       |                                   *
       |
       |
       |          *
       |     *
       |
       |
       |
       |
       |
       |
       |
       |
       |
-.038  |                         *
        :---------------------------:--------------------------:
        1.0                        6.6                      12.0

                    X-axis plotted in increments of .2
                    Y-axis plotted in increments of .002
[Array 69: EGG=12]


_ (HIST L)

    Histogram of 1->13

 1  |*
 2  |**
 3  |***
 4  |****
 5  |*****
 6  |******
 7  |*******
 8  |********
 9  |*********
10  |**********
11  |***********
12  |************
13  |*************

    Each * indicates 1.  The | is at 0.
[Array 28: 1=13]


_ (SETQ L (DIFFERENCE L 8))
[Array 72: 1=13]


_ (HIST L)

    Histogram of Difference of 1->13 and 8

 1  *******|
 2   ******|
 3    *****|
 4     ****|
 5      ***|
 6       **|
 7        *|
 8         |
 9         |*
10         |**
11         |***
12         |****
13         |*****

    Each * indicates 1.  The | is at 0.
[Array 72: 1=13]
Speed: 7992.132 K PDP10 instrs   Space:         983 conses
       27.251 CPU secs                          194 large integers
       101.248 real secs                        217 floating numbers
               0 gc time                         80 array frames
                                                 65 genstateblocks
             127 page faults                    381 rows
load average = .6999311                        1009 row elements