← (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
6 1 7 2 4 3 5
[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.0026670 .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.300 .000
ROW .000 1.000 .000 .056 .818
HALF .000 1.000 .000 .000 .982
R*H .000 1.000 .000 .000 .982
Error .005 8.000 .000 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 .405
LENGTH .487 .591
VOLUME 1.293 1.558 4.132
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 .995 1.000
VOLUME .999 .997 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 -2.467
LENGTH 1.201 .006
VOLUME 3.190 .005 .006
Constant 1.531 .018 .021 -1.034
[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 -248.301
LENGTH 204.705 -170.457
VOLUME 2.171 .848 .002
Constant -2.141 3.058 .005 -1.089
[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 -2.466
LENGTH 1.201 .006
VOLUME 3.190 .005 .006
Constant 1.531 .018 .021 -1.034
[Array 58: VARIABLE=4 VARIABLE=4]
← [SETQ COEF (AT REGR (QUOTE (VOLUME WIDTH]
[Scalar 59: 3.189816]
← [SETQ CONST (AT REGR (QUOTE (VOLUME Constant]
[Scalar 60: .02061534]
← (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 3.189816 and VARIABLE WIDTH from MEASURES ON A DOZEN EGGS and
.02061534
EGG
1 2 3 4 5 6 7
-.018 -.016 -.029 -.005 .020 -.028 .023
EGG
8 9 10 11 12
-.016 .024 .038 .011 -.004
[Array 69: EGG=12]
← (PLOT RESID)
Plot of Difference of VARIABLE VOLUME from MEASURES ON A DOZEN
EGGS and Plus of Times of 3.189816 and VARIABLE WIDTH from
MEASURES ON A DOZEN EGGS and .02061534 and 1 -> 12
.0375 | *
|
|
|
|
| *
| *
| *
|
|
|
| *
|
.005000003
|
|
|
| *
| *
|
|
|
| * *
|*
|
|
|
| *
-.03 | *
:---------------------------:--------------------------:
1.0 6.6 12.0
X-axis plotted in increments of .2
Y-axis plotted in increments of .0025
[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]
Elapsed Time = 32.3 seconds
SWAP time = 6.84 seconds
GC time = 1.44 seconds
CPU Time = 24.1 seconds
PAGEFAULTS = 290
SWAPWRITES = 86
DISKOPS = 358
NETIOTIME = 3.42 seconds
NETIOOPS = 40
FIXP FLOATP LISTP ARRAYP STRINGP STACKP ROWHEADER ARRAYFRAME GENSTATEBLOCK
3065 2977 2871 15 368 2 382 80 66