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