← (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