1. THIS IS DATAPLOT PROGRAM FILE     RENNEX.DP
2. OXYGEN IN SILICON SRM
3. MARCH 1993
4.
5. -----START POINT-----
6.
7DEVICE 2 POSTSCRIPT
8.
9SKIP 25
10READ RENNEX.DAT Y1 Y2 YC Y3 SET GROUP
11.
12X3LABEL AUTOMATIC
13LINES SO SO DO SO
14PLOT Y1 Y2 YC Y3 VS SET
15MULTIPLOT 2 2
16PLOT Y1
17PLOT Y2
18PLOT Y3
19PLOT YC
20MULTIPLOT OFF
21.
224-PLOT YC
23.
24CHAR X ALL
25LINES BLANK ALL
26PLOT YC GROUP GROUP
27LINES SOLID DOTTED
28CHAR BLANK BLANK
29LET MC = MEAN YC
30LET SDC = SD YC
31LET SDMC = STANDARD DEVIATION OF THE MEAN YC
32X2LABEL GRAND MEAN = ^MC   GRAND SD = ^SDC   SD(GRAND MEAN) = ^SDMC
33MEAN PLOT YC GROUP
34X2LABEL
35LOOP FOR K = 1 1 3
36LET M^K = MEAN Y^K
37LET SD^K = STANDARD DEVIATION Y^K
38END LOOP
39.
40LET FUDGE = MC/YC
41LOOP FOR K = 1 1 3
42LET YP^K = Y^K * FUDGE
43END LOOP
44.
45CHAR BLANK ALL
46PLOT YP1 YP2 YP3 VS SET
47MULTIPLOT 2 2
48PLOT YP1
49PLOT YP2
50PLOT YP3
51MULTIPLOT OFF
52.
53ER
54LOOP FOR K = 1 1 3
55LET MP^K = MEAN YP^K
56LET SDP^K = STANDARD DEVIATION YP^K
57END LOOP
58.
59MULTIPLOT 2 2
60CHAR X ALL
61LINES SOLID ALL
62PLOT YP1 GROUP GROUP
63PLOT YP2 GROUP GROUP
64PLOT YP3 GROUP GROUP
65.
66MULTIPLOT 2 2
67JUST CENTER
68LOOP FOR K = 1 1 3
69   MEAN PLOT YP^K GROUP
70   LET M^K = YPLOT SUBSET TAGPLOT 1
71   LET SDM^K = SD YPLOT SUBSET TAGPLOT 1
72   MOVE 50 15
73   TEXT GRAND MEAN = ^M^K    SD(INDIV MEANS) = ^SDM^K
74END LOOP
75.
76MULTIPLOT 2 2
77BOOTSTRAP MEAN PLOT YP1
78BOOTSTRAP MEAN PLOT YP2
79BOOTSTRAP MEAN PLOT YP3
80.
81