' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( q Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(`  d ֠z# u`&1055:BX$"RECIPROCAL":GX34&AR1İ4012:1000c&AXAD:K0:I1A:KK1:XT(I)Z(K):I:1075&ZT1:NZ0:K1NK:Z(K)0ZT2&Z(K)0ZT3:Z(K)NZNZZ(K)&K:&ZT1015,1012,1013'"ZERO VARIATE ENCOUNTERED. TRANSFORM IS LOG(Z + K TRANSFORM"::5);"5. NO TRANSFORM"::5);"6. USER-DEFINED TRANSFORM":4013:GK6:4008:GG1002,1002,1002,1070,1070,1115%K0:I1A:KK1:Z(K)XO(I):I:NKK:GG1003,1004,1005%1008:BX$"LOG":GX1:1006%1020:BX$"SQUARE ROOT":GX2:100631:618$iA14:A23:NX30d$jI1NX:R:I:F1R:R:F3R::N4120D1:FS(N4A1)(F3F1)(A2A1)F1j$k$:AR0:AD0:AX0:"WHICH TRANSFORMATION DO YOU WISH FOR X?"::5);"1. LOG"::5);"2. SQUARE ROOT"::5);"3. RECIPROCAL"}%:5);"4. BAC4,3.68,3.63,3.59,3.55,3.52,3.49k#c 3.47,3.44,3.42,3.40,3.39,3.37,3.35,3.34,3.33,3.32,3.23,3.15,3.07,3.00#dI134:R:I:D130614#eI1D1:R:I:FSR::#fD1120A11:A20:NX33:618#gD160A12:A21:NX32:618$hD140A13:A22:NX11:A20:NX33:6084"]D160A12:A21:NX32:608U"^D140A13:A22:NX31:608i"_A14:A23:NX30"`I1NX:R:I:T1R:R:T3R::N4120D1:T2(N4A1)(T3T1)(A2A1)T1"a#b 199,19,9.55,6.94,5.79,5.14,4.74,4.46,4.26,4.10,3.98,3.89,3.81,3.73,3.182,2.776,2.571,2.447,2.365,2.306,2.262,2.228,2.201,2.179,2.160,2.145,2.131,2.120,2.110,2.101,2.093,2.086!Y 2.080,2.074,2.069,2.064,2.060,2.056,2.052,2.048,2.045,2.042,2.021,2.000,1.980,1.960!ZD130604![I1D1:R:I:T2R::"\D1120A T4506j PB.5(1YY(.196854YY(.115194YY(.000344YY.019527))))4:PB(PB10000.5)10000:507 YYYY(1.08YY4T3):505 FS1PB1PB PB.05ĺ" NS":4011:511 PB.01ĺ" *";"":511 " **";"";"" m!X 12.706,4.30FS):".95 CONFIDENCE BELT FOR LINE.":5);"F(2, ";D1;")=";FS:211s UMMS(4)DRDF(3)DF(4):D1DR:600:TRT2: DRDT:TRT:X1:FS1502SD1:TD2:ZFS:503SD2:TD1:Z1FSJ29S:K29T:YY((1K)Z(13)1J)(KZ(23)J) ) = ";TR8:" X=";X$:X(X$):X0G$"0"İ4006:200~YYIBIX:SY(UM(1SN(XXM)2Q1)MS(4)):L1YTRSY:L2YTRSY" Y=";Y;20);"SY=";SY:"L1=";L1;20);"L2=";L2:TZ1GY5GG2:1170256B:D1DT:610:FS(FS10000.5)10000:TF(2"0"İ4006:200v" SAMPLE SIZE FOR MEAN Y=";K:YYIBIX:SY(UM(1SN(XXM)2Q1)MS(4)K):L1YTRSY:L2YTRSY" Y=";Y;20);"SY=";SY:"L1=";L1;20);"L2=";L2:TZ1GY5GG2:1170241:"PREDICT A SAMPLE Y FROM X:":265:5);"T(";DR;"B2:HTD(UM(D(1A1NA)(YYM)2Q1)):LLXMB(YYM)D:L1LLH:L2LLH" X=";X:" D=";D;20);"H=";H:"L1=";L1;20);"L2=";L2:TZ1GX5GG1:1170226:"PREDICT A MEAN Y FROM X:":265:5);"T(";DR;")=";TR:" X=";X$:X(X$):X0G$ 211\WM1ė:"TRANSFORMATION NOT POSSIBLE. NO INDIVI- DUAL VARIATES.":4012:197f1000:"PREDICT X FROM Y:":5);"T(";DT;")=";T:" Y=";X$:Y(X$):Y0X$"0"İ4006:200K"SAMPLE SIZE OF THIS Y: ";NA:X(YYI)BI:DBI2T2V4006:4012:60G:"PREDICT Y FROM X:":TFT:5);"T(";DT;")=";TFw:" X=";X$:X(X$):X0X$"0"İ4006:200YYIBIX:SY(UM(1SN(XXM)2Q1)):L1YTFSY:L2YTFSY" Y=";Y;20);"SY=";SY:"L1=";L1;20);"L2=";L2:TZ1GY5GG2:1170"GK7:4008:4004:GG210,225,240,255,260,197,2064006::10:"PROGRAM ENDED. THAT'S ALL FOLKS!":"";""::"(NOTE: TO RESTART WITHOUT LOSING YOUR DATA, TYPE GOTO 197 (RETURN))":16300,0:16298,0:4004:ZK2060,2090:TZ1İ1105Y FROM X"::5);"4. PREDICT A SAMPLE Y FROM X":5);"5. PREDICT .95 CONFIDENCE BELT FOR":9);"LINE"::5);"6. DO SOMETHING ELSE"::5);"7. STOP THE PROGRAM":"TO RETURN TO THIS LISTING FROM (1) - (4), INPUT A NON-NUMERICAL CHARACTER.:5)"4. USE ORTHOGONAL POLYNOMIALS"::5);"5. PLOT THE LINE"::5);"6. STOP THE PROGRAM":4013:GK6:4008::GG207,200,216,2800,98,2060:"DO YOU WANT TO:"::5);"1. PREDICT Y FROM X"::5);"2. PREDICT X FROM Y"::5);"3. PREDICT A MEAN 8:13);YT(1,J);18);YT(2,J);23);YT(3,J);28);YT(4,J):JB6ZK16I1A:SU(I)0:SQ(I)0:J1N(I):SU(I)SU(I)YT(I,J):SQ(I)SQ(I)YT(I,J)2:J:I6WM1:4006:4012:6 6,7,8,9,10,11,12,13,14,15,167 .029,.052,.079,.125,.181,.261,.425,.738,:J1N(I):YO(I,J):YT(I,J)YO(I,J):J:I::""54004::(5)::"MEAN DAILY NUMBER OF EGGS LAID BY THRIPS IMAGINIS AT FOUR TEMPERATURES (MODIFIED FROM ANDREWARTHA)"5:"X: DEG. C.:";14);"12";19);"16";24);"20";29);"24"96"Y: NO. EGGS:":J1M"'44013:GK3:4008:GG1200,50,206s4 12,2.5,1.9,2.0,2.2,1.7,3.1,2.1,2.3,16,5.8,4.1,3.6,4.2,4.8,5.4,5.3,3.94 20,7.9,7.1,6.2,8.1,8.7,8.3,9.1,10.5,24,8.7,7.6,8.9,6.6,8.7,11.2,8.5,11.005I168:RR:4014:I:A4:I1A:N(I)8:XO(I):XT(I)XO(I)"DO NOT ASK FOR A BACK-TRANSFORMED PLOT WHEN RUNNING USER-DEFINED TRANSFORMS. (THE CHAINED PROGRAM 'PLOTLINE' CANNOT HANDLE THEM.)"4:"DO YOU WISH TO:"::5);"1. REVIEW THIS INFORMATION"::5);"2. RUN THE PROGRAM"::5);"3. STOP THE PROGRA, OVERFLOWS, ETC.) THAT HIS TRANSFORMATION MIGHT PRODUCE."2:"THE OTHER RELEVANT STATEMENTS IN THE PROGRAM ARE 1115-1165. FOR INFO ON BASIC LIBRARY FUNCTIONS SEE APPLESOFT II MANUAL, PP. 102-104.":40123:5:10);"IMPORTANT NOTE!"::SFORMATIONS. FOR X, PROGRAM STATEMENT 1125 AS FOLLOWS:"g1:5);"XT(I)=(SOME FUNCTION OF)XO(I)"1:"FOR Y, PROGRAM STATEMENT 1150:"::5);"YT(I,J) = (SOME FUNCTION OF)YO(I,J)"<2:"THE USER SHOULD CONSIDER ANY ERRORS (ILLEGAL QUANTITIES=";L2:#0GT1180,1181,1182,118350LT(LT)AD:F0LTLT2AD:T0LT1LT:v0LTLT57.29578:LT((LT))2:<1:"THIS PROGRAM PROVIDES LOG, SQUARE ROOT, RECIPROCAL AND ANGULAR TRANSFORMATIONS. IN ADDITION THE USER MAY PROGRAM HIS OWN TRANT(I,J)YO(I,J): (A DUMMY STATEMENT)E/J:I:BY$"USER":GY6:1102W/GG1172,1174z/ADAX:GTGX:C$"X=":CYX:1176/ADAY:GTGY:C$"Y=":CYY0LTCY:1178:CYLT:LTL1:1178:L1LT:LTL2:1178:L2LT:"BACK TRANSFORMED:":C$;CY:"L1=";L1;20);"L2;:GX51109).R"(X";:AX0ĺ" + ";AX;3.S")";T.U20);"Y: ";BY$;:GY51112p.V"(Y";:AY0ĺ" + ";AY;y.W")".X:.[AR0:AD0:AX0:I1A.eXT(I)XO(I): (A DUMMY STATEMENT) .tI:BX$"USER":GX6:1075.yAY0:I1A:J1N(I)%/~YYT(I,J)YO(I,J):J:I:GY5:BY$"NONE":1102E-MGY5:BY$"NONE":1104-N4011:I1A:SU(I)0:SQ(I)0:J1N(I):SU(I)SU(I)YT(I,J):SQ(I)SQ(I)YT(I,J)2:J:I:2056-O:4004:1105:4006:TZ1:GX5GY5TZ0-P60 .Q:"TRANSFORMATIONS:":"X: ";BX$087,1088,1089,,>1008:BY$"LOG":GY1:1095S,?1020:BY$"SQUARE ROOT":GY2:1095y,@1055:BY$"RECIPROCAL":GY3:1095,A1040:BY$"ANGULAR":GY4,GAR1İ4012:1075,HAYAD:K0:I1A:J1N(I):KK1:YT(I,J)Z(K):J:I:1102+-LI1A:J1N(I):ECIPROCAL"}+4:5);"4. ANGULAR"::5);"5. BACK TRANSFORM"::5);"6. NO TRANSFORM"::5);"7. USER-DEFINED TRANSFORM"+84013:GK7:4008:GG1085,1085,1085,1085,1100,1100,1145 ,=K0:I1A:J1N(I):KK1:Z(K)YO(I,J):J:I:NKK:AR0:GG1086,1ERO ENCOUNTERED. TRANS- FORMATION STOPPED.":AR1:=* KZ*"K1NK:Z(K)1Z(K):K:t*.I1A:XT(I)XO(I):I*0GX5:BX$"NONE" +3:AR0:AD0:AY0:"WHICH TRANSFORMATION DO YOU WISH FOR Y?"::5);"1. LOG"::5);"2. SQUARE ROOT"::5);"3. R LESS THAN ZERO ENCOUNTERED."M)ZU2ĺ"VARIATE GREATER THAN 1 ENCOUNTERED"m)"TRANSFORM STOPPED":AR1:)K1NK:Z(K)1Z(K)90:1052)ZV(Z(K)):ZV(ZV(ZVZV1):ZVZV57.2957795:Z(K)ZV)K:6*:ZT1:K1NK:Z(K)0ĺ"VARIATE < = ZORM IS SQR(Z + .5)":AD.5:4012:1030p("NEGATIVE VARIATE ENCOUNTERED. TRANS- FORMATION STOPPED.":AR1:(K1NK:Z(K)(Z(K)AD):K:(ZT1:ZU1:ZV1:K1NK:Z(K)0ZT2:ZV2(Z(K)1ZU2:ZV2(K:(ZV11050)ZT2ĺ"VARIATE1)":AD1:4012:1015h'AD(NZ)1:"NEGATIVE VARIATE ENCOUNTERED. TRANSFORM IS LOG(Z + ";AD;")":4012'K1NK:Z(K)(Z(K)AD):K:'ZT1:K1NK:Z(K)0ZT2'Z(K)0ZT3'K:'ZT1030,1027,1028&("ZERO VARIATE ENCOUNTERED. TRANSFY=";YM;" + ";BE(1);"(E1) + ";BE(2);"(E2)":AN3ĺ3);" + ";BE(3);"(E3)"F :"THE EQUATIONS IN X ARE:":DL(XT(2)XT(1)):XCXT(1):XN0:I1A:XNXNI:XT(I)XCXCXT(I)F I:XNXNA:I13:BF(I)BE(I)C(0,I):I(G BX(1)BF(1)DL:Y1(1)YMBX(1)XM::"QUADRATIC":I2:2820:"CUBIC":I3:2820:A4ĺ"DEVIATIONS":D1DF(3)2:CS(4)(SS(3)CS(2)CS(3))D1:I4:2820vE 2824E D1;5);CS(I);:DF(4)0ĺ:E FSCS(I)MS(4):FU(FS10000.5)10000:25);FU;:500:GF :"ORTHOGONAL POLYNOMIAL EQUATION:"::":AN3:A2AN2yD J1AN:CA0:CP0:I1A:CACAC(I,J)SU(I):CPCPC(I,J)2:I:CPCPN(1):CS(J)CA2CP:BE(J)CACP:JD :4004:"LINEAR, QUADRATIC, CUBIC COMPONENTS":15);"F- TESTS:":"DF";5);"MS";25);"F"lE D11:D2DF(4):"LINEAR":I1:2820:"MAY BE USED. IT PARTI- TIONS THE DEVIATIONS SS INTO QUADRATIC AND CUBIC COMPONENTS, TESTS THEIR SIGNIFICANCE AND CALCULATES THE APPRO- PRIATE EQUATIONS.C :"DO YOU WISH THE ORTHOGONAL POLYNOMIALS ANALYSIS?(Y/N)":4015:GG2810,197D 3000X";20);"Y":I1A:XT(I);19);YT(I,1):I/B,B :"ORTHOGONAL POLYNOMIALS:"::"IF THERE ARE:"::5);"FROM 3 TO 12 (X) CATEGORIES"::5);"EQUALLY SPACED"::5);"WITH EQUAL REPLICATION"C :"THE METHOD OF ORTHOGONAL POLYNOMIALS PROVIDED HERE M;22);"YM=";YM:"SN=";SNA :"SY=";S1;21);"SY2=";S2:"S(SY2/N)=";S3;21);"CT=";S4:"SX=";S8;21);"SX2=";S9:"SNXY=";SP;21);"CTX=";SA:"SX2=";SB;21);"SPXY=";SC:A""":4004::"BASIC QUANTITIES:":2080A*:"THE DATA AS ENTERED ARE:")B+2);"):I:.@"SE(Y)=;TAB(8);SE(I):NEXT I:RETURNi@"":4004::"BASIC QUANTITIES:":I1A::"X=";XT(I):@"SY=";SU(I);22);"N=";N(I):"MN(Y)=";MN(I);22);"SY2=";SQ(I):"V(Y)=";V(I);22);"SS=";SV(I):"SD(Y)=";SD(I);22);"SE(Y)=";SE(I):IA:"XM=";X? "THE "N(I);" Y VALUES ARE:":J1N(I):YT(I,J),:J::I:[?"SUM Y=";8);SU(I):2064t?"MEAN Y=";8);MN(I)?WS2065,2066,2067,2068,2069?"SUM Y2=";8);SQ(I):I:?"SSY=";8);SV(I):I:?"V(Y)=";8);V(I):I:@"SD(Y)=";8);SD(I(I) >I:5>I1A:MN(I)SU(I)N(I):N(I)12058> SV(I)SQ(I)SU(I)2N(I):V(I)SV(I)(N(I)1):SD(I)(V(I)):SE(I)(V(I)N(I))> I:> :"THE DATA AS ENTERED ARE:":A;" GROUPS":I1A::"GROUP ";I;" X=";XT(I);" N=";N(I):WM2061,2062,2063=SQ(I)SXSU(I)2N(I):2054`="ENTER VARIANCE OF Y: ";SX:SQ(I)SX(N(I)1)SU(I)2N(I):2054="STANDARD DEVIATION OF Y: ";SX:SXSX2:SQ(I)SX(N(I)1)SU(I)2N(I)ʫ2054>"ENTER STANDARD ERROR OF Y: ";SX:SXSX2:SQ(I)SXN(I)(N(I)1)SU(I)2NI)SU(I)YO(I,J):SQ(I)SQ(I)YO(I,J)2:J:2054T<"ENTER THE SUM Y: ";SU(I):2042<"ENTER THE MEAN Y: ";MN(I):SU(I)MN(I)N(I):2042<WS2044,2046,2048,2050,2052<"ENTER THE SUM Y SQUARED: ";SQ(I):2054="ENTER SUM OF SQUARES OF Y: ";SX:E ORDER OF ASCENDING X VALUES.":I1A::"FOR GROUP ";I;":":"VALUE FOR X: ";XO(I):XT(I)XO(I):WN1Ą"NO. OF REPLICATE Y VALUES (N):";N(I);WM2036,2038,2040/<"ENTER THE ";N(I);" Y VALUES:":SU(I)0:SQ(I)0:J1N(I):YO(I,J):YT(I,J)YO(I,J):SU("FOR EACH X, DO YOU WISH TO ENTER:"::5);"1. SUM Y SQUARED"::5);"2. SUM OF SQUARES OF Y"::5);"3. VARIANCE OF Y"::5);"4. STANDARD DEVIATION OF Y"::5);"5. STANDARD ERROR OF Y":4013:GK5:4008:WSGG;:"NOTE: ENTER GROUP DATA IN TH9WN0:"NUMBER OF Y'S FOR EACH X: ";XZ:I1A:N(I)XZ:I:XZ1ZK2O92026]9ZK1:WN19:"FOR EACH X, DO YOU WISH TO ENTER:"::5);"1. INDIVIDUAL VARIATES"::5);"2. SUM Y"::5);"3. MEAN Y":4013:GK3:4008:WMGG9:WM12032z::AGE IN DAYS";15);"DRY WT. IN GRAMS":7);"X";21);"Y"o8I1A:J1N(I):6);XT(I);20);YT(I,J):J:I:20088:"DATA ENTRY"::"ENTER THE FOLLOWING ITEMS:"::"NUMBER OF X VALUES (A): ";A::"EQUAL NO. OF Y'S FOR EACH X?(Y/N)":4015:GG2022,2024E1.130,1.882,2.812+7I1104:RR:4014:I7A11:I1A:N(I)1:XO(I):XT(I)XO(I):I:I1A:J1N(I):YO(I,J):YT(I,J)YO(I,J):I::ZK2:""74004:::"DRY WEIGHTS OF CHICK EMBRYOS FROM AGES 6 TO 16 DAYS (FM. SNEDECOR AND COCHRAN)"68:2);",.27490,.26931,.26404,.25907,.25438,.24993,.24571,.24170,.23788,.23424,.23076,.22743,.22425,.22119,.21826,.21544,.21273,.21012 .20760,.20517,.20283,.20056,.19837,.19625,.19420,.19221,.19028,.18841,.18659,.18482,.18311,.18144,.17981,.17823,.17669,.1 &4014:I0V:I1A:"GROUP ";I;" VARIATES ARE:":J1EN(I):YT(I,J):J:I: .97500,.84189,.70760,.62394,.56328,.51926,.48342,.45427,.43001,.40925,.39122,.37543,.36143,.34890,.33760,.32733,.31796,.30936,.30143,.29408~ .28724,.28087:5);"(TO CONTINUE, PRESS A KEY)";"":16368,0:A$::nT:5);"(PRESS THE APPROPRIATE KEY)":16368,0:TSZ16336:SOUND(SZ)(SZ):T16368,0:AN$:AN$"Y"GG1:TAN$"N"GG2:T"ENTER AGAIN":4015"N"HCOPY0:4011:-S"ENTER AGAIN":4001MSHCOPY1ĺ(13);(4);"PR#1"SSsSHCOPY1ĺ(13);(4);"PR#0"ySS16368,0:G$:GG(G$)SGG1GGGKĺ"ENTER AGAIN":4008SSSZ16336:II120:BOUNCE(SZ)(SZ)(SZ)(SZ):II:9TBX(6)6XCDL2BX(6)3XC2DL3SR* BX(5)BX(5)DL2BX(6)3DL2BX(6)3XCDL3hR, BX(6)BX(6)DL3nR. R:"DO YOU WISH HARD COPY (Y/N)?":16368,0RG$:G$"Y"HCOPY1:::(12):"TURN ON TELETYPE"::"";"":DL1300:DL:"";"":SG$DL23Q BX(2)BX(2)DLBX(3)2DLBX(3)2XCDL2JQ BX(3)BX(3)DL2:Q& Y1(3)Y1(3)BX(4)BX(4)XCDLBX(5)BX(5)2XCDLBX(5)XC2DL2BX(6)BX(6)3XCDLBX(6)3XC2DL2BX(6)XC3DL3!R( BX(4)BX(4)DLBX(5)2DLBX(5)2XCDL2BX(6)3DL,-21,-3,35?P 4011:I1126:RR:I:A3āI412:RR:I:3018hP I4A:RR:4014:I:INRR:A123016}P IA112:RR:IP I1IN:RR:IP J13:I0A:C(I,J):4014:I:J::"":Q Y1(2)Y1(2)BX(2)BX(3)BX(2)XCDLBX(3)2XCDLBX(3)XC25,31,12,-12,-31,-35,-14,42O 1,-5,-4,-3,-2,-1,0,1,2,3,4,5,1,15,6,-1,-6,-9,-10,-9,-6,-1,6,15,.8333333,-30,6,22,23,14,0,-14,-23,-22,-6,30 P 2,-11,-9,-7,-5,-3,-1,1,3,5,7,9,11,3,55,25,1,-17,-29,-35,-29,-17,1,25,55,.6666667,-33,3,21,25,19,7,-7,-19,-25ON 2,-7,-5,-3,-1,1,3,5,7,1,7,1,-3,-5,-5,-3,1,7,.66666667,-7,5,7,3,-3,-7,-5,7N 1,-4,-3,-2,-1,0,1,2,3,4,3,28,7,-8,-17,-20,-17,-8,7,28,.83333333,-14,7,13,9,0,-9,-13,-7,14O 2,-9,-7,-5,-3,-1,1,3,5,7,9,.5,6,2,-1,-3,-4,-4,-3,-1,2,6,1.6666667,-42,14,3,3,1,2,18M 2,-3,-1,1,3,1,1,-1,-1,1,3.33333,-1,3,-3,1rM 1,-2,-1,0,1,2,1,2,-1,-2,-1,2,.833333333,-1,2,0,-2,1M 2,-5,-3,-1,1,3,5,1.5,5,-1,-4,-4,-1,5,1.66666667,-5,7,4,-4,-7,5M 1,-3,-2,-1,0,1,2,3,1,5,0,-3,-4,-3,0,5,.116666667,-1,1,1,0,-1,-1,1"0"İ4006:2850>L: YY1(2)BX(2)XBX(3)X2:"Y=";Y:2871eL@ :"CUBIC PREDICTION OF Y FROM X:"LA :"X= ";X$:X(X$):X0X$"0"İ4006:2850LB YY1(3)BX(4)XBX(5)X2BX(6)X3:"Y=";Y:2881L 8,23,41,62,86,113,143,176,212M 1,-1,0,1860,2870,2880,197,2060K% 4006::HCOPY0İ4000:K& 2842bK, :"LINEAR PREDICTION OF Y FROM X:"K- :"X= ";X$:X(X$):X0X$"0"İ4006:2850K. YY1(1)BX(1)X:"Y=";Y:2861K6 :"QUADRATIC PREDICTION OF Y FROM X:"L7 :"X= ";X$:X(X$):X0X$5);"1. LINEAR"::5);"2. QUADRATIC"::5);"3. CUBIC"::"EQUATION? -OR:"J# :5);"4. DO SOMETHING ELSE"::5);"5. STOP THE PROGRAM"K$ :"TO RETURN TO THIS LISTING FROM (1) - (3) INPUT A NON-NUMERICAL CHARACTER.":4013:GK5:4008:4004:GG2REDISPLAY THE POLYNOMIAL RESULTS":5);"2. PREDICT Y FROM X"::5);"3. PLOT THE LINES"::5);"4. DO SOMETHING ELSE"I :5);"5. STOP THE PROGRAM":4013:GK5:4008:GG2814,2850,95,197,206OJ" ::"DO YOU WISH TO PREDICT Y FROM X USING THE:"::BF(3)XN3BF(3)N3XN:BX(4)BF(1)2BF(2)XN3BF(3)XN2BF(3)N3:BX(5)BF(2)3BF(3)XN:BX(6)BF(3)pH 3110H :"Y=";Y1(3);" + ";BX(4);"(X)":3);"+ ";BX(5);"(X2) + ";BX(6);"(X3)"H 4006:4012:HCOPY0İ4000xI :"DO YOU WISH TO:"::5);"1. Y=";Y1(1);"+ ";BX(1);"(X)":N2(A21)12uG Y1(2)YMBF(2)XN2BF(1)XNBF(2)N2:BX(2)BF(1)BF(2)XN2:BX(3)BF(2)G 3100::"Y=";Y1(2);" + ";BX(2);"(X)":3);"+ ";BX(3);"(X2)"G AN22840fH N3(3A27)20:Y1(3)YMBF(1)XNBF(2)XN2BF(2)N208:GG950,90Q(:XA2ĺ"INDIVIDUAL DATA NOT FOUND. NO TRANSFORM":4012:1065("TRANSFORMATIONS:":"WHICH TRANSFORMATION?"::5);"1. LOGS"::5);"2. SQUARE ROOT"::5);"3. ANGULAR"&):5);"4. BACK TRANSFORM TO ORIGINAL"::5);"5. NO TR':"DO YOU WISH TO:"::5);"1. RE-DISPLAY THE RESULTS"::5);"2. STOP THE PROGRAM":4013:GK2:4008:GG905,90'4006:4012::HCOPY0İ4000 (:"DO YOU WISH TO:"::5);"1. RE-DISPLAY THE RESULTS"::5);"2. STOP THE PROGRAM":4013:GK2:40(1)1:3000:TXT:DFEN(2)1:3000:TYTc&TT(TXV(1)EN(1)TYV(2)EN(2))(V(1)EN(1)V(2)EN(2))&:"T=";YD;"/";ST;"=";TP;:(TP)TTĺ" *";"":974&" NS":4011&"TEST T=";TT;"(";TX;", ";TY;")":995&995&4006:4012::HCOPY0İ4000uND MN=";S6;22);"SWMN2=";S7:"CT=";S8;22);"S(W/SW)=";S0:"AMONG GPS SS=";SA|%"D1=";D1;" D2=";D2;" F=";FS;:870:A2995%995%:"T:TEST FOR UNEQUAL VARIANCES (SOKAL AND ROHLF, BOX 13.3)"&&YDMN(1)MN(2):ST(SE(1)2SE(2)2):TPYDST:DFEN0:I1A:W(I)EN(I)V(I):S4S4W(I):S5S5W(I)MN(I):S7S7W(I)MN(I)2:I:S6S5S4:S8S52S4$SAS7S8:S00:I1A:S0S0(1W(I)S4)2(EN(I)1):I$FS(SA(A1))(1(S02(A2))(A21)):D1A1:D2(A21)(3S0)L%:"SW=";S4;22);"SWMN=";S5:"GT(I,J):SISIYT(I,J):S2S2YT(I,J)2:J:4014y#S3S3SI2EN(I):SNSNEN(I):I:S4S12SN:STS2S4:SAS3S4:SWS2S3:#4004::"ANOVA FOR UNEQUAL VARIANCES (SOKAL AND ROHLF, BOX 13.2)"#XA2İ205:958#K1A:106:200:K^$S40:S50:S7D1D2::"T=";YD;"/";ST;"=";TT;:3020:990"SN0:SW0:S10:S30:I1A:SNSNEN(I):SWSW(EN(I)1)V(I):S1S1EN(I)MN(I):S3S3EN(I)MN(I)2:4014:I"S4S12SN:S2SWS3:STSWS3S4:SAS3S4:-#S10:S20:S30:SN0:I1A:SI0:J1EN(I):S1S1Y1;5);SA;22);MA:"WITHIN GROUPS:":D2;5);SW;22);MW:"TOTAL:":D3;5);STf!"F=";FS;:870:A2990!D1EN(1)1:D2EN(2)1!STD1V(1)D2V(2):ST(EN(1)EN(2))(EN(1)EN(2))ST(D1D2):ST(ST):YDMN(1)MN(2):TTYDST:TT(TT10000.5)10000+"D0,907 4004::"ONE-WAY ANOVA:":XA2İ205:920:908T K1A:106:200:K:922 D1A1:D2SNA:D3SN1:MASAD1:MWSWD2:FSMAMW :"SSY=";S1;22);"SSY2=";S2:"S(SY)2/N=";S3;22);"SSY2/N=";S4J!:"DF";5);"SS";22);"MS":"AMONG GROUPS:":D::5);"1. RE-DISPLAY THE RESULTS"::5);"2. DO AN ANOVA (OR T-TEST)"::5);"3. DO A MODIFIED ANOVA (OR T-TEST)"9);"(FOR UNEQUAL VARIANCES)"::5);"4. TRANSFORM THE DATA"::5);"5. STOP THE PROGRAM" 4013:GK5:4008:GG100,905,950,100876bkPB.5(1YY(.196854YY(.115194YY(.000344YY.019527))))4:PB(PB10000.5)10000:877lYYYY(1.08YY4T3):875mFS1PB1PBnPB.05ĺ" NS":4011:881oPB.01ĺ" *";"":881p" **";"";"":qv:"DO YOU WISH TO:"NV:"F-MAX TEST RATIO=";FM;" DF=";DF;:5000:FMTFĺ" *";"":860RW" NS":4011s\4006:4012::HCOPY0İ4000|]900fX1:FS1872gSD1:TD2:ZFS:873hSD2:TD1:Z1FSiJ29S:K29T:YY((1K)Z(13)1J)(KZ(23)J)jT41CQ(3(A1)):XQX2CQp>:"BARTLETT'S TEST FOR HOMOSCEDASTICITY:":"X2=";X2;" X2/C=";XQ;:DFA1:MT1:4020BN1EN(1):N2EN(1)CMVV(1):NVV(1):I2A:V(I)MVMVV(I):N1EN(I)HV(I)NVNVV(I):N2EN(I)MI:N1N2N1N2ARDFN11:FMMVV(2):N1EN(1):N2EN(2)T/FSMVNV:D1N11:D2N21::"VARIANCE RATIO: F=";FS;:870]08604SUM0:S20:S30:S40:I1A:S2S2EN(I)1:SUMSUM(EN(I)1)V(I):S3S3(EN(I)1)(V(I)):S4S41(EN(I)1):I8SUMSUMS29X2S2(SUM)S3:CQS41S2:CQ65,.13891,.13818,.13746,.13675,.13606,.13537,.13469,.13403XN100TD1.358(N):750jI137:X:II1N:X:I::TDXDKTDĺ" *";"":" NS":4011: A2820%V(1)V(2)NVV(1):MVV(2):N1EN(2):N2EN(1):815*MVV(1):NV7519,.17373,.17231 .17091,.16956,.16823,.16693,.16567,.16443,.16322,.16204,.16088,.15975,.15864,.15755,.15649,.15544,.15442,.15342,.15244,.15147,.15052,.14960: .14868,.14779,.14691,.14605,.14520,.14437,.14355,.14274,.14195,.14117,.14040,.139,1O8 266,62.0,29.5,18.7,13.7,10.8,9.03,7.80,6.92,5.72,4.68,3.76,2.91,2.11,18 333,72.9,33.6,20.8,15.0,11.8,9.78,8.41,7.42,6.09,4.95,3.94,3.02,2.17,18 403,83.5,37.5,22.9,16.3,12.7,10.5,8.95,7.87,6.42,5.19,4.10,3.12,2.22,169 475,93.9,41.1,243.28,2.86,2.46,2.07,1.67,1h7 87.5,27.8,15.5,10.8,8.38,6.94,6.00,5.34,4.85,4.16,3.54,2.95,2.40,1.85,17 142,39.2,20.6,13.7,10.4,8.44,7.18,6.31,5.67,4.79,4.01,3.29,2.61,1.96,18 202,50.7,25.2,16.3,12.1,9.70,8.12,7.11,6.34,5.30,4.37,3.54,2.78,2.04" *";"":4077(6" **";"";"":4077F6XS.5((2DF1)1.645)2d6XT.5((2DF1)2.326)26XQXSĺ" NS":4011:40766XQXTĺ" *";"":40766" **";"";""6216,0:MT2:402067 39.0,15.4,9.60,7.15,5.82,4.99,4.43,4.03,3.72,1:IDF22:RRI:I85KQXQ(((DF1)2))(XQ2)RC5216,0_5(DF2)DF2J1:4050w5J(2XQ3.1415927)5LQ1:M1:DXDF5DXDX2:MMXQDX:M.000000140655LQLQM:40555PB1JKQLQ5PB.05ĺ" NS":4011:40776PB.01GGKĺ"ENTER AGAIN":40084[4SZ16336:II120:BOUNCE(SZ)(SZ)(SZ)(SZ):II:4:5);"(TO CONTINUE, PRESS A KEY)";"":A$::4:5);"(PRESS THE APPROPRIATE KEY)":4SZ16336:SOUND(SZ)(SZ):4MT4022,4077440715R (Y/N)?"b3G$:G$"Y"HCOPY1:::(12):"TURN ON TELETYPE"::"";"":DL1300:DL:"";"":~3G$"N"HCOPY0:4011:3"ENTER AGAIN":40013HCOPY1ĺ(13);(4);"PR#1"33HCOPY1ĺ(13);(4);"PR#0"33G$:GG(G$)4GG1GPB.5(1LT(.196854LT(.115194LT(.000344LT.019527))))4:PB(PB10000.5)10000:3050}2 LTLT(1.08LT4RT3):30402 T1PB1PB2 PB.05ĺ" NS":4011:30702 PB.01ĺ" *";"":30702 " **";"";""2 3:"DO YOU WISH HARD COPY1 A14:A23:NX30b1 I1NX:RR:I:T1RR:RR:T3RR:N4120DF:T(N4A1)(T3T1)(A2A1)T1:3009j1 :1 X1:Y1:TTT2:T130301 STY:RTD:ZT:30351 STD:RTY:Z1T1 J29ST:K29RT:LT((1K)Z(13)1J)(KZ(23)J):RT43045[2 0 2.080,2.074,2.069,2.064,2.060,2.056,2.052,2.048,2.045,2.042,2.021,2.000,1.980,1.960y0 I1141:RR:I:DF3030040 I1DF:RR:I:TRR:30090 DF120A11:A20:NX33:30080 DF60A12:A21:NX32:30080 DF40A13:A22:NX31:3008 ANOVA (OR T-TEST)"::9);"FOR UNEQUAL VARIANCES"::5)"5. STOP THE PROGRAM"|/+4013:GK5:4008:GG1060,100,905,950,90/ 12.706,4.303,3.182,2.776,2.571,2.447,2.365,2.306,2.262,2.228,2.201,2.179,2.160,2.145,2.131,2.120,2.110,2.101,2.093,2.086 Y000 . 1065\.$4004::B$;" TRANSFORMED VARIATES ARE:":570:4006:4012::HCOPY0İ4000.):"DO YOU WISH TO:"::5);"1. REDISPLAY XFORMED DATA"::5);"2. TEST ANOVA ASSUMPTIONS"::5);"3. DO AN ANOVA (OR T-TEST)"O/*:5);"4. DO A MODIFIEDJ1EN(I):YO(I,J)1YT(I,J)90:1052h-XV(YO(I,J)):XV(XV(XVXV1)):XVXV57.2957795:YT(I,J)XVr-J:I-B$"ANGULAR":GT3:1060.I1A:J1EN(I):YT(I,J)YO(I,J):J:I::"DATA TRANSFORMED BACK TO ORIGINAL SCALE":GT0:4012::HCOPY0İ49,XT1:XU1:XV1:I1A:J1EN(J):YO(I,J)0XT2:XV2R,YO(I,J)1XU2:XV2^,J:I:m,XV11050,XT2ĺ"VARIATE LESS THAN ZERO ENCOUNTERED.",XU2ĺ"VARIATE GREATER THAN 1 ENCOUNTERED","TRANSFORM STOPPED":4012:1000%-I1A:+XT1030,1027,1028b+"ZERO VARIATE ENCOUNTERED. TRANSFORM IS SQR(Y + .5)":AD.5:GT2:1030+"NEGATIVE VARIATE ENCOUNTERED. TRANS- FORMATION STOPPED.":4012:1000+I1A:J1EN(I):YT(I,J)(YO(I,J)AD):J:I:B$"SQUARE ROOT":GT2:1060FORM IS LOG(Y + 1)":AD1:1015m*AD(NY)1:"NEGATIVE VARIATE ENCOUNTERED. TRANSFORM IS LOG(Y + ";AD;")"*I1A:J1EN(I):YT(I,J)(YO(I,J)AD):J:I:B$"LOG":GT1:1060*XT1:I1A:J1EN(I):YO(I,J)0XT2*YO(I,J)0XT3*J:I:ANSFORM"::5);"6. STOP THE PROGRAM"[)4013:GK6:4008:GG1006,1020,1040,1055,1065,90)XT1:NY0:I1A:J1EN(I):YO(I,J)0XT2)YO(I,J)0XT3:YO(I,J)NYNYYO(I,J))J:I:)XT1015,1012,1013*"ZERO VARIATE ENCOUNTERED. TRANSSZ16336:SOUND(SZ)(SZ):X#5);"(TO CONTINUE, PRESS A KEY)";"":16368,0:G$:#:5);"(PRESS THE APPROPRIATE KEY)":16368,0:#SZ16336:II120:SOUND(SZ)(SZ)(SZ)(SZ):II:A20:SOUND(SZ)(SZ)(SZ)(SZ):II:::(12):"TURN ON TELETYPE"::"";"":DL1300:DL:"";"":\"G$"N"HCOPY0:4014:u""ENTER AGAIN":4001"HCOPY1ĺ(13);(4);"PR#1"""HCOPY1ĺ(13);(4);"PR#0""G$:GG(G$)"GG1GGGKĺ"ENTER AGAIN":4008"#A:J1B:K1N:Y(I,J,K)YO(I,J,K):K:J:I::"DATA TRANSFORMED BACK TO ORIGINAL SCALE":GT0:B$"BACK-":4012!$:"":4004:B$;" TRANSFORMED VARIATES ARE:":711:4006:4012:74!:"DO YOU WISH HARD COPY (Y/N)?":16368,0@"G$:G$"Y"HCOPY1:"VARIATE GREATER THAN 1 ENCOUNTERED"J "TRANSFORM STOPPED":4012:1000 I1A:J1B:K1N:YO(I,J,K)1Y(I,J,K)90:1052 XV(YO(I,J,K)):XV(XV(XVXV1)):XVXV57.2957795:Y(I,J,K)XV:4011 K:J:I B$"ANGULAR":GT3:1060o!I1N:Y(I,J,K)(YO(I,J,K)AD):4011:K:J:I:B$"SQUARE ROOT":GT2:1060XT1:XU1:XV1:I1A:J1B:K1N:YO(I,J,K)0XT2:XV2YO(I,J,K)1XU2:XV2K:4011:J:I:XV11050XT2ĺ"VARIATE LESS THAN ZERO ENCOUNTERED."% XU2J,K)0XT2!YO(I,J,K)0XT36K:4011:J:I:MXT1030,1027,1028"ZERO VARIATE ENCOUNTERED. TRANSFORM IS SQR(Y + .5)":AD.5:GT2:1030"NEGATIVE VARIATE ENCOUNTERED. TRANS- FORMATION STOPPED.":4012:1000FI1A:J1B:K1RIATE ENCOUNTERED. TRANSFORM IS LOG(Y + 1)":AD1:1015AD(NY)1:"NEGATIVE VARIATE ENCOUNTERED. TRANSFORM IS LOG(Y + ";AD;")"I1A:J1B:K1N:Y(I,J,K)(YO(I,J,K)AD):4011:K:J:I:B$"LOG":GT1:1060 XT1:I1A:J1B:K1N:YO(I,O TRANSFORM"::5);"6. STOP THE PROGRAM"`4013:GK6:4008:GG1006,1020,1040,1055,1060,200XT1:NY0:I1A:J1B:K1N:YO(I,J,K)0XT2YO(I,J,K)0XT3:YO(I,J,K)NYNYYO(I,J,K)K:4011:J:I:XT1015,1012,10138"ZERO VAO"TEST NOT POSSIBLE. ONLY 1 DEGREE OF FREEDOM IN INTERACTION.":618U"TRANSFORMATIONS:":"WHICH TRANSFORMATION?"::5);"1. LOGS"::5);"2. SQUARE ROOT"::5);"3. ANGULAR"*:5);"4. BACK TRANSFORM TO ORIGINAL"::5);"5. N:K:J:I:b:"ROW AND COLUMN TOTALS:":NAME$(2);"; ";A;" CLASSES; TOTALS:":I1A:SA(I),:I:NAME$(3);"; ";B;" CLASSES; TOTALS:":J1B:SB(J),:J:"SY=";S1;20);"SY2=";S2:"SYG2/N=";S3;20);"SYA2/BN=";S4:"SYB2/AN=";S5;20);"CT=";S6j@:"DO YOU WISH TO TRANSFORM THE DATA?(Y/N)":16368,0WAN$:AN$"Y"1000gAN$"N"74"ENTER AGAIN":701:"THE DATA AS ENTERED ARE:"I1A:J1B :NAME$(2);": CLASS ";I;"; ";NAME$(3);": CLASS ";J;":":K1N:Y(I,J,K)8SS(4)S7:DXDF(4)1:M8S8DXf_"NONADDITIVITY":"1";5);S7;22);S7:"RESIDUAL":DX;5);S8;22);M8`FSS7M8:"F=";FS;:D11:D2DX:500:XA1ıb4006::"TRANSFORMATION TO LOGS?(Y/N)"gAN$:AN$"Y"1000hAN$"N"ıi"ENTER AGAIN":615NONADDITIVITY:":NAME$(4):DF(4);5);SS(4):DF(4)1900YI1A:Q(I)0:J1B:Q(I)Q(I)SG(I,J)(SB(J)AST):J:QTQTQ(I)(SA(I)BST):IZKN0:KA0:KB0[J1B:KBKB(SB(J)AST)2:J:I1A:KAKA(SA(I)BST)2:I:KNKAKB:S7QT2(KNN)^S:A23:NX12:50213;DF12A15:A24:NX11:5021G;A16:A25:NX10;J2NX:RR:J:T1RR:RR:T3RR:N460DF:TF(N4A1)(T3T1)(A2A1)T1;:"7.48,5.93,4.59,3.39,2.36,1&:A12ıZ:I1175:RR:I:A2āI2A1:J115:RR:J:Ij:DF105015:J2DF:RR:J:TFRR:5022:DF60A11:A20:NX15:5021:DF30A12:A21:NX14:5021:DF20A13:A22:NX13:5021;DF15A14.7,17.5,13.5,11.1,9.45,8.28,6.72,5.40,4.24,3.21,2.26,19 550,104,44.6,26.5,18.6,14.3,11.7,9.91,8.66,7.00,5.59,4.37,3.29,2.30,19 626,114,48.0,28.2,19.7,15.1,12.2,10.3,9.01,7.25,5.77,4.49,3.36,2.33,1: 704,124,51.4,29.9,20.7,15.8,12.7,10.7,9.34,V0"& D$;"DELETE DATA3"A& D$;"OPEN DATA3":D$;"WRITE DATA3"O& NAME$(1)]& NAME$(2)k& NAME$(3)r& Ay& B& C& N& I1A:J1B:K1C:L1N:YO(I,J,K,L):L:K:J:I& D$;"CLOSE DATA3"& 2002' :"INSERT WORK DISK INTO DRROHLF, BOX 12.1)"K%I1A:NAME$(1);" ";I:15);NAME$(2):NAME$(3);%K1C:9);:TB9:J1B:TBTB4:YO(I,J,K,1);TB);:J::K:I%4006:4012:70% 3000% :"INSERT WORK DISK INTO DRIVE 1";"":4012:D$(13)(4)& D$;"OPEN DATA3,B:C:N:NAME$(1)"TEMP":NAME$(2)"CN CONC":NAME$(3)"O2 CONC":I1A:J1B:K1C:YO(I,J,K,1):Y(I,J,K,1)YO(I,J,K,1):4014:K:J:I:%4004::"TIME TO INTOXICATION BY CYANIDE IN PHOXINUS, USING 5 CN CONC., 3 O2 CONC., AND 3 TEMPS. (SOKAL AND :"":4004:B$;" TRANSFORMED VARIATES ARE:":711:4006:74J# 3,5,3,1# 201,246,271,150,164,170,131,138,149,130,136,127,97,102,99# 124,158,207,104,111,117,86,99,81,89,91,87,60,74,72# 79,129,142,63,54,93,50,51,62,51,52,51,32,46,52$A:,K,L)):XV(XV(XVXV1)):XVXV57.2957795:Y(I,J,K,L)XV:4014P"L:K:J:Il"B$"ANGULAR":GT3:1060"I1A:J1B:K1C:L1N:Y(I,J,K,L)YO(I,J,K,L):4014:L:K:J:I::"DATA TRANSFORMED BACK TO ORIGINAL SCALE":GT0:4012" B$"BACK-"<#$2!L:K:4014:J:I'!XV11050X!XT2ĺ"VARIATE LESS THAN ZERO ENCOUNTERED."!XU2ĺ"VARIATE GREATER THAN 1 ENCOUNTERED"!"TRANSFORM STOPPED":4012:1000!I1A:J1B:K1C:L1N:YO(I,J,K,L)1Y(I,J,K,L)90:1052@"XV(YO(I,JNTERED. TRANS- FORMATION STOPPED.":4012:1000 I1A:J1B:K1C:L1N:Y(I,J,K,L)(YO(I,J,K,L)AD):4014:L:K:J:I:B$"SQUARE ROOT":GT2:1060 XT1:XU1:XV1:I1A:J1B:K1C:L1N:YO(I,J,K,L)0XT2:XV2!YO(I,J,K,L)1XU2:XVJ:I:B$"LOG":GT1:1060QXT1:I1A:J1B:K1C:L1N:YO(I,J,K,L)0XT2iYO(I,J,K,L)0XT3L:K:4014:J:IXT1030,1027,1028"ZERO VARIATE ENCOUNTERED. TRANSFORM IS SQR(Y + .5)":AD.5:GT2:10302 "NEGATIVE VARIATE ENCOU4014:J:I!XT1015,1012,1013g"ZERO VARIATE ENCOUNTERED. TRANSFORM IS LOG(Y + 1)":AD1:1015AD(NY)1:"NEGATIVE VARIATE ENCOUNTERED. TRANSFORM IS LOG(Y + ";AD;")"I1A:J1B:K1C:L1N:Y(I,J,K,L)(YO(I,J,K,L)AD):4014:L:K:NSFORM TO ORIGINAL"::5);"5. NO TRANSFORM"::5);"6. STOP THE PROGRAM"4013:GK6:4008:GG1006,1020,1040,1055,74,200XT1:NY0:I1A:J1B:K1C:L1N:YO(I,J,K,L)0XT2YO(I,J,K,L)0XT3:YO(I,J,K,L)NYNYYO(I,J,K,L) L:K:R C, THE ROWS. EACH CELL IN THE TABLE CONTAINS THE REPLI- CATES FOR THAT COMBINATION OF A, B & C."pv"TRANSFORMATIONS:":"WHICH TRANSFORMATION?"::5);"1. LOGS"::5);"2. SQUARE ROOT"::5);"3. ANGULAR"K:5);"4. BACK TRACN=";S6:"SAC2/BN=";S7:"SBC2/AN=";S8:"SABC2/N=";S9:"CT=";S0D"FOR CONVENIENCE OF DATA ENTRY, IT IS ASSUMED THAT YOU HAVE A TWO-WAY DATA TABLE FOR EACH CLASS OF FACTOR A. IN"j" THE TWO-WAY TABLES, FACTOR B IS THE COLUMNS, FACTONAME$(1);"; ";A;" CLASSES; TOTALS:":I1A:SA(I),:Is:NAME$(2);"; ";B;" CLASSES; TOTALS:":J1B:SB(J),:J:NAME$(3);"; ";C;" CLASSES; TOTALS:":K1C:SC(K),:K>:"SY=";S1:"SY2=";S2:"SA2/BCN=";S3:"SB2/ABN=";S4:"SC2/ABN=";S5:"SAB2/"N"74"ENTER AGAIN":701@:"THE DATA AS ENTERED ARE:I1A:J1B:K1C:NAME$(1);": ";I;"; "NAME$(2);": ";J;"; ";NAME$(3);": ";K;": ";N1ĺY(I,J,K,1):714:L1N:Y(I,J,K,L);:L:K:J:I:6:"";"FACTOR TOTALS:"::PB(PB10000.5)10000:507<YYYY(1.08YY4T3):505SXA0:FS1PB1PBqPB.05ĺ" NS":4011:511PB.01ĺ" *";"":511" **";"";"":"DO YOU WISH TO TRANSFORM THE DATA?(Y/N)":16368,0AN$:AN$"Y"1000AN$WITHOUT LOSING THE DATA, TYPE GOTO 73, (RETURN)"6HX1:FS1502`SD1:TD2:ZFS:503uSD2:TD1:Z1FSJ29S:K29T:YY((1K)Z(13)1J)(KZ(23)J)T4506PB.5(1YY(.196854YY(.115194YY(.000344YY.019527))))4:):NAME$(2);16);"MS2/MS3";25);"F=";FS;:5003"q" VS(1)AS:VS(2)BS:VS(3)MS(3):VT0:IAX3:VS(I)02084""VTVTVS(I)"$I"&IAX3:VS(I)0VP(I)0:2090"(VP(I)VS(I)VT100:VP(I)(VP(I)1000.5)1000"*I3#,"VARIANCE COMPONENTSP:DP(DP.5)[!:"FOR UNEQUAL N, SYNTHESIZED MS ";NAME$(2);":":"MS2'=";MP(2);" DF=";DP!FSMP(1)MP(2):FS(FS10000.5)10000:D1DF(1):D2DP::NAME$(1);16);"MS1/MS2'";25);"F=";FS;:500-"FSMS(2)MS(3):FS(FS10000.5)10000:D1DF(2):D2DF(3)SW(4)V2V:I NP(SW(4)SW(2)SW(1))DF(1):NQ(SW(1)SW(4))DF(2):NR(SW(1)SW(3)SW(1))DF(1):BS(MS(2)MS(3))NQ:AS(MS(1)MS(3)NPBS)NR MP(2)MS(3)NPBS:MP(1)MP(2)NRAS !DP((1NPNQ)MS(3))2DF(3)((NPNQ)MS(2))2DF(2):DPMP(2)2DMS(2))(N(1,1)B(1)):g:"SOURCE";18);"MEAN SQUARE":I13:NAME$(I);20);"MS";I:I::"F-TESTS:" SW(1)0:SW(2)0:SW(3)0:SW(4)0 I1A:V0:V20J1B(I):VVN(I,J):V2V2N(I,J)2:J SW(1)SW(1)V:SW(2)SW(2)V2:SW(3)SW(3)V2:SW(4"ENTER THE ";N(I,J);" VARIATES:":K1N(I,J):YO(I,J,K):Y(I,J,K)YO(I,J,K):K:J:I[I12:FSMS(I)MS(I1):FS(FS10000.5)10000:D1DF(I):D2DF(I1):NAME$(I);16);"MS";I;"/MS";I1;25);"F=";FS;:500:IBS(MS(2)MS(3))N(1,1):AS(MS(1)PLICATES: ";XB:I1A:J1B(I):N(I,J)XB:J:I:2034>WN1I1A::"FOR ";NAME$(1);", CLASS ";I;":":WB1Ą"ENTER NUMBER OF SUBCLASSES (B): ";B(I)J1B(I):"FOR ";NAME$(2);", SUBCLASS ";J;":":WN1Ą"ENTER NUMBER OF REPLICATES: ";N(I,J)UNTER NUMBER OF SUBCLASSES (B) IN EACH CLASS (A): ";XB:I1A:B(I)XB:I:2028K1N(I,J):YO(I,J,K):Y(I,J,K)YO(I,J,K):K:J:IWB1:"EQUAL NUMBER OF REPLICATES IN EACH SUBCLASS (B)?(Y/N)":4015:GG2030,20325WN0:"ENTER NUMBER OF REu:"ENTER THE FOLLOWING ITEMS:"::"NAME FOR TOP LEVEL (A): ";NAME$(1):"THE NUMBER OF CLASSES IN THIS LEVEL: ";A:"NAME FOR NESTED LEVEL (B): ";NAME$(2):"EQUAL NUMBER OF SUBCLASSES (B) IN EACH CLASS (A)?(Y/N)":4015:GG2024,2026OWB0:"E4 FEMALE MOSQUITOES (AEDES INTRUDENS) REARED IN EACH OF 3 CAGES (SOKAL & ROHLF, BOX 10.1)";""I1A::"CAGE ";I:"FEMALE:";10);"1";16);"2";22);"3";28);"4"K12:9):TB9:J1B(I):TBTB6:YO(I,J,K);TB);:J::K:I4006:4012:,57.5,77.8,79.2,69.9,69.2,62.1,64.5A3:I1A:B(I)4:J1B(I):N(I,J)2:K1N(I,J):RR:YO(I,J,K)RR:Y(I,J,K)YO(I,J,K):4014:K:J:INAME$(1)"CAGES":NAME$(2)"FEMALES":WB0:WN0c4004::"DUPLICATE MEASUREMENTS OF THE LEFT WING OF EACH OF (I):K1N(I,J):Y(I,J,K)YO(I,J,K):K:J:I::"DATA TRANSFORMED BACK TO ORIGINAL SCALE":GT0:4012:1060$:"":4004:B$;" TRANSFORMED VARIATES ARE:":711:75# 58.5,59.5,77.8,80.9,84.0,83.6,70.1,68.3,69.8,69.8,56.0,54.5,50.7,49.3,63.8,65.8,56.6R THAN 1 ENCOUNTERED":"TRANSFORM STOPPED":4012:1000zI1A:J1B(I):K1N(I,J):YO(I,J,K)1Y(I,J,K)90:1052XV(YO(I,J,K)):XV(XV(XVXV1):XVXV57.2957795:Y(I,J,K)XV:4014K:J:IB$"ANGULAR":GT3:1060iI1A:J1BPRESS THE APPROPRIATE KEY)":16368,0:I*SZ16336:SOUND(SZ)(SZ):D"PR#1" ),)HCOPY1ĺ(13);(4);"PR#0"2)M)16368,0:G$:GG(G$)r)GG1GGGKĺ"ENTER AGAIN":4008x))SZ16336:II120:BOUNCE(SZ)(SZ)(SZ)(SZ):II:):5);"(TO CONTINUE, PRESS A KEY)";"":16368,0:A$::'*:5);"(,J,K,L)YO(I,J,K,L):L:K:J:I'( 70W(:"DO YOU WISH HARD COPY (Y/N)?":16368,0(G$:G$"Y"HCOPY1:::(12):"TURN ON TELETYPE"::"";"":DL1300:DL:"";"":(G$"N"HCOPY0:4011:("ENTER AGAIN":4001)HCOPY1ĺ(13);(4);IVE 1";"":4012:D$(13)(4):D$;"OPEN DATA3,V0"G' D$;"READ DATA3"U' NAME$(1)c' NAME$(2)q' NAME$(3)x' A' B' C' N' I1A:J1B:K1C:L1N:YO(I,J,K,L):L:K:J:I' D$;"CLOSE DATA3"( I1A:J1B:K1C:L1N:Y(I21);"DP";26);"PROBABILITY"D#AA(1)BB(1):BB(3)BB(1)AA(1)BB(3)~#!AA(2)BB(1)AA(1):AA(3)BB(3)AA(1):AA(4)BB(4)AA(2)#&430:PO(PP1000.5)1000:AA(1);5);AA(2);10);AA(3);15);AA(4);19);PO;25);P;#+PPPQĺ39);"T";#0:AA(1)0570?P3.05ĺ" *";"":)"" NS":4011:"4006:"DO YOU WISH THE ENTIRE HYPERGEOMETRIC DISTRIBUTION?(Y/N)":16368,0:4015:GG535,572" FC:410:"FC!=";FC"525#:4004:"HYPERGEOMETRIC DISTRIBUTION:":2);"A";6);"B";11);"C";16);"D";A(2)BB(1)AA(1):AA(3)BB(3)AA(1):AA(4)BB(4)AA(2)=!P20R!430:PPPQ500^!P2P2P!AA(1)AA(1)1:AA(2)AA(2)1:AA(3)AA(3)1:AA(4)AA(4)1:485!7);"OTHER TAIL=";P2:P3P1P2:12);"TOTAL=";P3;:505:520!P3.01ĺ" **";"";"":"N:410:EEFC:J34:FCBB(J):410:EEFC:JM PQA(AB)C(CD):PQ(PQ)V P10t 430:P1P1P:AA(1)0465 AA(1)AA(1)1:AA(2)AA(2)1:AA(3)AA(3)1:AA(4)AA(4)1:455 5);"P, THIS TAIL=";P1 AA(1)BB(1):BB(3)BB(1)AA(1)BB(3)4!A635X$" *":"";:,X$" **":"";"";:CF1FC:FC0FC1:OFC1ıcF1F11:F10ıuFCFCF1:420L11:I14:FCAA(I):410:L1L1FC:I:F1L1PEF:PPAA(1)BB(1)AA(3)BB(2):PP(PP):- E1:I12:FCBB(I):410:EEFC:I:FCZw"WITH YATE'S CORRECTION:":5);"X2=";C2;:XXC2:395:X$:6);"G=";G2;:XXG2:395:X$h|N33571:"N=";N;" IS LESS THAN 33. FISHER'S EXACT":"TEST FOLLOWS:"AA(1)A:AA(2)B:AA(3)C:AA(4)D:440XX3.841X$" NS":4011:XX6.L2L3):TTADBC:FV.5:TT0FV.5jcAA(1)AA(1)FV:AA(2)AA(2)FV:AA(3)AA(3)FV:AA(4)AA(4)FV:L10hI14:L1L1AA(I)(AA(I)):ImG22(L1L2L3)r:"WITHOUT YATE'S CORRECTION:":5);"X2=";C1;:XXC1:395:X$:6);"G=";G1;:XXG1:395:X$CD:E(ADBC)2N:F(AC)(BD)(AB)(CD):C1EFWJE((ADBC)N2)2N:C2EFOBB(1)AA(1)AA(2):BB(2)AA(3)AA(4):BB(3)AA(1)AA(3):BB(4)AA(2)AA(4)TL10:L20YI14:L1L1AA(I)(AA(I)):L2L2BB(I)(BB(I)):I:L3N(N)%^G12(L11:AA(5)AA(1):AA(1)AA(2):AA(2)AA(4):AA(4)AA(3):AA(3)AA(5):KZ<I14:DD(I)AA(I):I|=4004::I14:AA(I)DD(I):I@AAA(1):BAA(2):CAA(3):DAA(4):" THE FOUR VALUES, ROTATED SO THAT A IS THE SMALLEST ARE:":A;5);B;10);C;15);D"5ENAB"ANALYSIS OF 2 X 2 CONTINGENCY TABLE: ENTER THE 4 TABLED VALUES (A, B, C, AND D) IN THAT ORDER, SEPARATED BY COMMAS:":AA(1),AA(2),AA(3),AA(4)"MIAA(1):J1'I24:AA(I)MIMIAA(I):JI,I:J13161J3J4:3156J4J3@;K1JNOF(I):I:D0:I1A:RD:EF(I)RD:DDEF(I):I:PI1A:EF(I)EF(I)ND:I4004::"OUTCOME OF A CROSS BETWEEN 2 VARIETIES OF A CROSS OF THE BEAN (PHASEOLUS) FIT- TED TO A 18:6:6:2:12:4:12:4 RATIO. (SOKAL AND ROHLF, BOX 16.1)":240:OTAL";7);N;13);N:DFA::"FOR DF= ";DF;" CHI-SQUARE=";XQ;:MT1:695:X$:20);"G=";G;:MT1:XQG:695:X$4006:4012::HCOPY0İ40003000:GG239,210,100,1400  8,63,31,28,12,39,16,40,12,18,6,6,2,12,4,12,42RD:ARD:I1A:RD:OF(I)RD:NOF(I)EF(I))2EF(I):XQXQXF(I):G1G1OF(I)(OF(I)):G2G2OF(I)(EF(I)):I:G2(G1G2)c4004DA1000:"CLASS";7);"OBS";13);"EXP";22);"X2":I1A:EF(I)(EF(I)DA.5)DA:XF(I)(XF(I)DA.5)DA:3);I;7);OF(I);13);EF(I);22);XF(I):Ij"T%:5);"(PRESS THE APPROPRIATE KEY)":16368,0:U%SZ16336:SOUND(SZ)(SZ):n%AN$:AN$"Y"GG1:%AN$"N"GG2:%"ENTER AGAIN":4015X(13);(4);"PR#1"$8$HCOPY1ĺ(13);(4);"PR#0">$Y$16368,0:G$:GG(G$)~$GG1GGGKĺ"ENTER AGAIN":4008$$SZ16336:II120:BOUNCE(SZ)(SZ)(SZ)(SZ):II:$:5);"(TO CONTINUE, PRESS A KEY)";"":16368,0:A$::3:":IAX3:NAME$(I);15);VS(I);32);VP(I);"%":I:c#:"DO YOU WISH HARD COPY (Y/N)?":16368,0#G$:G$"Y"HCOPY1:::(12):"TURN ON TELETYPE"::"";"":DL1300:DL:"";"":#G$"N"HCOPY0:4011:#"ENTER AGAIN":4001$HCOPY10634012::HCOPY0İ4000<33000:GG848,820,100,1400m3 4,2,2,55,6,34,17,23,1,15,5,7,4,3,5,8,3,5,33I127:RD:I:RD:ARD:RD:RRD:RD:CRD3K1A:I1R:J1C:RD:XX(I,J,K)RD:J:I:K:L44004::"EMERGED DROSOPHILA CLASSIFIED ACCDFD7:XQG7:MT1:695:X$2G82(SASBSCSDSESFSGSH):D8(A1)(R1)(C1):"R X C X A INTERACTION:":"DF=";D8;" G=";G8;2DFD8:XQG8:MT1:695:X$2:"THE QUANTITIES: SA, SB, SC, SD, SE, SF, SG AND SH ARE:":SA,SB,SC,SD,SE,SF,SG,SH340 INDEPENDENCE:":"DF=";D4;" G=";G4;A1DFD4:XQG4:MT1:695:X$1G62(SBSESGSH):D6ARAR1:"R X A INDEPENDENCE:":"DF=";D6;" G=";G6;1DFD6:XQG6:MT1:695:X$1G72(SDSFSGSH):D7RCRC1:"R X C INDEPENDENCE:":"DF=";D7;" G=";G7;2I:SFSFS(S):JX0SG0:I1R:S0:J1C:K1A:SSXX(I,J,K):K:J:SGSGS(S):I0G32(SASESFSG2SH):D3ACRARC2::"R X C X A INDEPENDENCE:":"DF=";D3;" G=";G3;0DFD3:XQG3:MT1:695:X$#1G42(SCSESFSH):D4ACAC1:"A X CC0:J1C:K1A:S0:I1R:SSXX(I,J,K):I:SCSCS(S):K:J/SD0:I1R:J1C:S0:K1A:SSXX(I,J,K):K:SDSDS(S):J:I/SE0:K1A:S0:I1R:J1C:SSXX(I,J,K):J:I:SESES(S):K0SF0:J1C:S0:I1R:K1A:SSXX(I,J,K):K:S:".WK1A:"ARRAY ";K;":"..\I1R:KK19.aJ1CN.fKK);XX(I,J,K);f.kKKKK4:KK41KK5u.pJ::I:K.uSA0:SB0:SH0:I1R:K1A:S0.zJ1C:SSXX(I,J,K):SASAXX(I,J,K)(XX(I,J,K)):J:SBSBS(S):SHSHS:K:I:SHSH(SH)@/S TABLE."-74018:GG985,825f-9"NUMBER OF ROWS=";R:"NUMBER OF COLUMNS=";C:"NUMBER OF ARRAYS=";A-CK1A:"FOR ARRAY NUMBER ";K;":"-HI1R:"ENTER THE VARIATES FOR ROW ";I-MJ1C:XX(I,J,K):J:I:K-P4004.R:"THE TABLE AS ENTERED ILATE SPR";15);X(2,1);24);X(2,2):"EARLY SUM";15);X(3,1);24);X(3,2):"LATE SUM";15);X(4,1);24);X(4,2)s,3630-4:"THIS PROGRAM DOES A THREE WAY G-TEST OF INDEPENDENCE."::"THE DATA SHOULD BE ARRANGED INTO A ARRAYS, EACH ARRAY BEING AN R X CS OF COLOR PATTERNS OF A SPECIES OF TIGER BEETLE (CICINDELA FUL- GIDA) FOUND AT VARIOUS SEASONS. (SOKAL AND ROHLF, BOX 16.8)"+1:"SEASON";14);"COLOR PATTERN":12);"BRIGHT RED";24);"NOT BRIGHT RED"j,2:"EARLY SPR";15);X(1,1);24);X(1,2):")2"*XQXSX$" NS":4011:790@* XQXTX$" *":"";:790W*X$" **":"";"";q*768:216,0:MT2:695w**  4,2,29,11,273,191,8,31,64,64*%I117:RD:I:RD:RRD:RD:CRD*/I1R:J1C:RD:X(I,J)RD:J:I:+04004::"FREQUENCIE1745)LLM:735)216,0/)PB1JKQL})PB.05X$" NS":SZ16336:I110:BOUNCE(SZ)(SZ)(SZ)(SZ):I:795)PB.01X$" *":"";:795)X$" **":"";"";:795)DF30785)XS.5((2DF1)1.645)2*XT.5((2DF1)2.3264006:4012::HCOPY0İ4000=(3000:GG598,575,100,1400M(MT700,795W(765v(R11:IDF22:R1R1I:I(KQXQ(((DF1)2))(XQ2)R1((DF2)DF2J1:730(J(2XQ3.1415927)(L1:M1:DXDF)DXDX2:MMXQDX:M.000000(L1L2L3L4):DF(R1)(C1)\':"ROW TOTALS ARE:":K1:I1R:K);RR(I);:KK4:K41K5'I::"COLUMN TOTALS ARE:":K1:I1C:K);CC(I);:KK4:K41K5'I::"GRAND TOTAL=";T'GS(XQ1000.5)1000:MT1:695::"FOR DF=";DF;" G=";GS;X$(K41K5&qJ::I&&vT0:L10:L209&{I1R:RR(I)0q&J1C:RR(I)RR(I)X(I,J):L1L1X(I,J)(X(I,J)):J&L2L2RR(I)(RR(I)):TTRR(I):I&L4T(T):L30&J1C:CC(J)0:I1R:CC(J)CC(J)X(I,J):I&L3L3CC(J)(CC(J)):J'XQ2R X C TABLE."#%A4018:GG805,580T%D"NUMBER OF ROWS=";R:"NUMBER OF COLUMNS=";C%II1R:"ENTER THE VARIATES FOR ROW ";I%NJ1C:X(I,J):J%SI%V4004:%X"THE TABLE AS ENTERED IS:"%]I1R:K1%bJ1C%gK);X(I,J);&lKK4:$5AA(1)AA(1)1:AA(2)AA(2)1:AA(3)AA(3)1:AA(4)AA(4)1:545$::"THE TAILS ARE INDICATED BY THE LETTER T":"TEST DP=";PQ$;4006:4012$<:HCOPY0İ4000$=3000:GG317,280,100,1400 %?:"THIS PROGRAM DOES A G-TEST OF INDEPEN- DENCE ON AN ,0,1,1,1,0,1,1,0,0,0,0,1,0,1RC2 0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,1,1,0,0wC7I162:RD:I:RD:RRD:RD:CRDC<J1C:I1R:RD:X(I,J)RD:I:J:ND=4004::"SCORES EXPRESSING CONDITION OF 24 ACACIA CORNIGERA OBSERVED IN 3 DIFFERENT M2:I:S20:J1C:S2S2CC(J)2:J:Q(C1)(CS2ST2)(CSTS1)iBXQQ:DFC1::"Q=";Q;:MT1:695:X$B4012::HCOPY0İ4000B3000:GG1256,1240,100,1400B# 24,3B( 0,0,0,1,1,1,0,1,1,1,1,1,0,0,0,0,0,1,1,1,1,1,1,1C- 1,0,1,0,1,0,0,1,1,0K41KK9-AJ:RR(I)S:KKKK2:KK41KK11@AKK);RR(I):IAST0:J1C:S0:I1R:SSX(I,J):I:CC(J)S:STSTCC(J):JAKK7:"TOTAL";:J1C:KK);CC(J);:KKKK4:KK41KK9A J:KKKK2:KK41KK11AKK);ST@BS10:I1R:S1S1RR(I) OF TESTS:";:C]@I1R:"ENTER THE TEST SCORES FOR INDIV. NO.";I;":":J1C:X(I,J):J:Ig@4004@:"TABLE OF SCORES AS ENTERED IS:":"INDIV";15);"SCORES ... AND ROW TOTALS" AI1R:3);I;:S0:KK7:J1C:KK);X(I,J);:KKKK4:SSX(I,J):K0);PB;X$#?4012::HCOPY0İ4000D?3000:GG1168,1160,100,1400?:"THIS PROGRAM PERFORMS A COCHRAN'S Q-TESTWHERE INDIVIDUALS ARE TESTED THREE OR MORE TIMES."?4018:GG1335,1255@"ENTER THE NUMBER OF INDIVIDUALS:";:R:"ENTER THE NUMBER+C)<10. EXACT BINOMIAL PROBABILITY IS"7>YB:CBYCP>PB0:FCK:410:KFFC>IYK:FCI:410:YFFC:FCKI:410:XFFC:PBPBKF(YFXF).5K:I:PBPB2>PB.05X$" NS":4011:1230>PB.01X$" *":"";:1230>X$" **":"";"";?12 X 2 TABLE AS ENTERED IS:"::5);A;9);B:5);C;9);Db=XQ(BC)2(BC):XP((BC)1)2(BC)=:"WITHOUT YATE'S CORRECTION:":5);"X2=";XQ;:XXXQ:395:X$="WITH YATE'S CORRECTION:":5);"X2=";XP;:XXXP:395:X$=KBC:K101235&>"(Bp3000:GG1126,1055,100,1400<:"THIS PROGRAM ANALYSES A 2 X 2 TABLE WHERE THE SAME INDIVIDUALS ARE TESTED TWICE (MCNEMAR TEST)."<:"ENTER THE QUANTITIES A, B, C AND D IN THAT ORDER, SEPARATED BY COMMAS:":A,B,C,D<40047=:"THE NN1;`NT20NTNT1;e 4442.2,6306.4,8883.7,10891.5,10150.2,12884.8,16474.3,19171.6,14059.3,17249.8,21368.5,24426.2,25890.0,30161.4,35536.7,39450.1;j:"DESIRED N=";N::"IF ONE OF THE PERCENTAGES IS AN EXPEC- TATION THEN N=";NT;o4012:<KRC:L1K:RD:L:CORD:^:B:"ENTER THE TWO PERCENTAGES, SEPARATED BY A COMMA:";:P1,P2:GXP1100:1020:Q1AS:XP2100:1020:Q2AS:DM(Q1Q2)2:NCODM:NTN2:N(N)N(N)1:1105:LN(N):QNT(NT)NT(NT)1:1115:VNT(NT);[N20WISH?":10);"1. .1"::10);"2. .05"::10);"3. .01"::10);"4. .001"`9)GK4:4008:RGG9.:"WHAT POWER (1 - BETA) DO YOU WISH?":10);"1. .5"::10);"2. .8"::10);"3. .9"::10);"4. .99"93GK4:4008:C4(GG1)98I146:RD:I:=98(PB3)))2*8PB.05X$" NS":4011:F8PB.01X$" *":"";:_8X$" **":"";"";:8:"THIS PROGRAM CALCULATES THE SAMPLE SIZE NECESSARY TO DETECT A GIVEN DIFFERENCE BETWEEN TWO PERCENTAGES."L9$"WHAT TYPE I ERROR VALUE (ALPHA) DO YOU 15);P2;"(";N2;")".7:"T=";T;:ZT:1025:X$I74012::HCOPY0İ4000i73000:GG1008,995,100,14007X(X):AS(X(XX1)):ASAS57.2957795:7R((Z2)2)2.50662827467PB1(1.33267(Z)) 8 PB(R(.4361836PB(.1201676(PB2)).93726"ENTER THE SECOND PERCENTAGE AND ITS SAMPLE SIZE, SEPARATED BY A COMMA:";:P2,N26XP1100:1020:Q1AS:XP2100:1020:Q2AS:NM(Q1Q2):DM(820.8(1N11N2)):TNMDM64004:7:"THE TWO PERCENTAGES (SAMPLE SIZES) ARE:":P1;"(";N1;")";1,1,K);24);XX(1,2,K):6);"FEMALE";16);XX(2,1,K);24);XX(2,2,K):KM58855:"THIS PROGRAM TESTS THE SIGNIFICANCE OF THE DIFFERENCE BETWEEN TWO PERCENTAGES."::"ENTER THE FIRST PERCENTAGE AND ITS SAMPLE SIZE, SEPARATED BY A COMMA:";:P1,N1XORDING TO PUPATION SITE, SEX AND MORTALITY. (SOKAL AND ROHLF, BOX 16.9)"4:12);"HEALTHY";20);"POISONED":NAME$(1)"IN MEDIUM":NAME$(2)"AT MARGIN OF MEDIUM":NAME$(3)"ON WALL OF VIAL":NAME$(4)"ON MEDIUM"D5K1A:NAME$(K):6);"MALE";16);XX(ASS (A): ";XB:I1A:B(I)XB:I:2028. WB1 :"NAME FOR SECOND NESTED LEVEL (C): ";NAME$(3):"EQUAL NUMBER OF SUBSUBCLASSES (C) IN EACH SUBCLASS (B)?(Y/N)":4015:GG2030,2032.!WC0:"ENTER NUMBER OF SUBSUBCLASSES (C) IN EACH SUBCLASS (BOR TOP LEVEL (A): ";NAME$(1):"THE NUMBER OF CLASSES IN THIS LEVEL: ";A:"NAME FOR FIRST NESTED LEVEL (B): ";NAME$(2):"EQUAL NUMBER OF SUBCLASSES (B) IN EACH CLASS (A)?(Y/N)":4015:GG2024,2026% WB0:"ENTER NUMBER OF SUBCLASSES (B) IN EACH CL20144006:4012:NAME$(2);21);"1";33);"2":NAME$(3);:TB13:J13:TBTB4:TB);J;:J:J13:TBTB4:TB);J;:J:NAME$(4);:L12:TB12:J12:K13:TBTB4:TB);Y(I,J,K,L);:K:J::L:G:"ENTER THE FOLLOWING ITEMS:"::"NAME F ON EACH OF 3 PREPARATIONS OF RAT LIVERS FROM EACH OF 2 RATS FOR EACH OF 3 TREATMENTS."~" (SOKAL AND ROHLF, BOX 10.3)"NAME$(1);20);"CONTROL":I1:2014NAME$(1);17);"COMPOUND 217":I2:2014NAME$(1);16);"COMPOUND 217 + SUGAR":I3:1C(I,J):N(I,J,K)2:L1N(I,J,K):RR9YO(I,J,K,L)RR_Y(I,J,K,L)RR:4014:L:K:J:I:NAME$(1)"TREATMENTS":NAME$(2)"RATS":NAME$(3)"PREPS":WB0:WC0:WN0:""Z4004::"GLYCOGEN CONTENT OF LIVER IN ARBITRARY UNITS. DUPLICATE READINGS$:"":4004:B$;" TRANSFORMED VARIATES ARE:":711:TX1:75 131,130,131,125,136,142,150,148,140,143,160,150,157,145,154,142,147,153,151,155,147,147,162,152,134,125,138,138,135,136,138,140,139,138,134,127&A3:I1A:B(I)2:J1B(I):C(I,J)3:KV(XV(XVXV1):XVXV57.2957795:Y(I,J,K,L)XV:4014GL:K:J:IcB$"ANGULAR":GT3:1060m2200 I1A:J1B(I):K1C(I,J):L1N(I,J,K):Y(I,J,K,L)YO(I,J,K,L):L:K:J:I::"DATA TRANSFORMED BACK TO ORIGINAL SCALE":GT0:4012:1060=4:IXV11050DXT2ĺ"VARIATE LESS THAN ZERO ENCOUNTERED."tXU2ĺ"VARIATE GREATER THAN 1 ENCOUNTERED""TRANSFORM STOPPED":4012:1000I1A:J1B(I):K1C(I,J):LN(I,J,K):YO(I,J,K,L)1Y(I,J,K,L)90:10527XV(Y(I,J,K,L)):X:1000I1A:J1B(I):K1C(I,J):L1N(I,J,K):Y(I,J,K,L)(Y(I,J,K,L)AD):4014:L:K:J:I:B$"SQUARE ROOT":GT2:1060XT1:XU1:XV1:I1A:J1B(I):K1C(I,J):L1N(I,J,K):Y(I,J,K,L)0XT2:XV2Y(I,J,K,L)1XU2:XV2K:J:4011C(I,J):L1N(I,J,K):Y(I,J,K,L)0XT2@Y(I,J,K,L)0XT3SK:4014:J:IjXT1030,1027,1028"ZERO VARIATE ENCOUNTERED. TRANSFORM IS SQR(Y + .5)":AD.5:GT2:1030"NEGATIVE VARIATE ENCOUNTERED. TRANS- FORMATION STOPPED.":4012A A KEY)";"":16368,0:A$::SH:5);"(PRESS THE APPROPRIATE KEY)":16368,0:uHSZ16336:SOUND(SZ)(SZ):HAN$:AN$"Y"GG1:HAN$"N"GG2:H"ENTER AGAIN":4015H:"DO YOU WISH TO SEE A DEMONSTRATION?(Y/N)":16368,0:4015:ENTER AGAIN":40012GHCOPY1ĺ(13);(4);"PR#1"8GXGHCOPY1ĺ(13);(4);"PR#0"^GyG16368,0:G$:GG(G$)GGG1GGGKĺ"ENTER AGAIN":4008GGSZ16336:II120:BOUNCE(SZ)(SZ)(SZ)(SZ):II:H:5);"(TO CONTINUE, PRESS SELECT ANOTHER PROCEDURE"::5);"4. STOP THE PROGRAM"MF 4013:GK4:4008SF F:"DO YOU WISH HARD COPY (Y/N)?":16368,0FG$:G$"Y"HCOPY1:::(12):"TURN ON TELETYPE"::"";"":DL1300:DL:"";"":FG$"N"HCOPY0:4011:G"(YFXF):P1P1CFQF(1)IQF(2)X:P2P2CFQF(1)XQF(2)I:IEx:(15):"THAT'S ALL, FOLKS!";"";"":I120:DL123.456987.6543:I:""Ey8F :"DO YOU WISH TO:"::5);"1. REDISPLAY THE RESULTS"::5);"2. ENTER ANOTHER SET OF DATA"::5);"3. ONTHS AFTER BEING DEPRIVED OF ANT SYMBIONTS (SOKAL AND ROHLF, BOX 16.12)"D>:"PLANT";14);"MONTH":" NO.";6);"MAR";10);"JUN";14);"AUG";20);"SUM"D?1265DA:"NO PROGRAM HERE AS YET":=EFIYN:XNI:FCI:410:YFFC:FCX:410:XFFC:CFNFNTER AGAIN":40150X1XX:#16368,0:G$:GG(G$)HGG1GGGKĺ"ENTER AGAIN":4008N:5);"(TO CONTINUE, PRESS A KEY)";"":16368,0:A$:::5);"(PRESS THE APPROPRIATE KEY)":16368,0:16368,0:AN$:AN$"Y"GG1:AN$"N"GG2:"E1GY4YYY:1177"ADAY:GTGY7LTY:1178:YYLT=YGT1180,1181,1182,1183kLT(LT)AD:|LTLT2AD:LT1LT:LTLT57.29578:LT((LT))2:GX1GX3XXX:GX1202,1203,1204X(XXAX):X(XXAX):015XI(SZ)(SZ)(SZ)(SZ):II:\,:5);"(TO CONTINUE, PRESS A KEY)";"":16368,0:A$::,:5);"(PRESS THE APPROPRIATE KEY)":16368,0:,SZ16336:SOUND(SZ)(SZ):,16368,0:AN$:AN$"Y"GG1:,AN$"N"GG2:-"ENTER AGAIN":4":DL1300:DL:"";"":7+G$"N"HCOPY0:4011:P+"ENTER AGAIN":4001p+HCOPY1ĺ(13);(4);"PR#1"v++HCOPY1ĺ(13);(4);"PR#0"++16368,0:G$:GG(G$)+GG1GGGKĺ"ENTER AGAIN":4008+,SZ16336:II120:BOUNCE:IAX4:NAME$(I);15);VS(I);32);VP(I);"%":I5*B*ZQ0ĺ:"BACK TRANSFORMATION NOT POSSIBLE. NO YO(I,J,K,L) ARRAY.":4012:194**:"DO YOU WISH HARD COPY (Y/N)?":16368,0+G$:G$"Y"HCOPY1:::(12):"TURN ON TELETYPE"::"";":D1DF(I):D2DP(I1):NAME$(I);16);"MS";I;"/MS";I1;25);"F=";FS;:500:I:l)4VT0:IAX4:VS(I)02104|)6VTVTVS(I))8I):IAX4:VS(I)0VP(I)0:2110)<VP(I)VS(I)VT100:VP(I)(VP(I)1000.5)1000:)>I/*@:"VARIANCE COMPONENTS:"NR:DS(NTNQ)(NRNP):DW(4)1DQDRDS:DW(3)DQDS:DW(2)DR:DM0(I24:DMDMDW(I)MS(I)2DF(I):I:DP(2)MP(2)2DM:DP(2)(DP(2).5)("";(I23:NAME$(I);" MS";I;"=";MP(I);" DF=";DP(I):IL) I13:FSMS(I)MP(I1):FS(FS10000.5)10000:VS(1)(MS(1)MS(4)NSVS(3)NTVS(2))NU3'4011'MP(2)MS(4)NSVS(3)NTVS(2):MP(3)MS(4)NQVS(3):MP(4)MS(4):DP(4)DF(4)'DW(4)1NQNP:DW(3)NQNP:DM0:I34:DMDMDW(I)MS(I)2DF(I):I:DP(3)MP(3)2DM:DP(3)(DP(3).5)@(DQNSNP:DRNTTWU&I:"";b&NS(SW(6)(SW(1)SW(4)))DF(1):NQ(SW(5)SW(6))DF(2):NP(SW(4)SW(5))DF(3)&NT(SW(7)(SW(2)SW(4)))DF(1):NR(SW(4)SW(7))DF(2):NU(SW(4)SW(3)SW(4))DF(1))'VS(4)MS(4):VS(3)(MS(3)MS(4))NP:VS(2)(MS(2)MS(4)NQVS(3))NR0%J1B(I):WW0:WX0`% K1C(I,J):SW(1)SW(1)N(I,J,K)2:WWWWN(I,J,K)2:WXWXN(I,J,K)% K:SW(2)SW(2)NB(I,J)2:SW(5)SW(5)WWWX:WTWTNB(I,J)2:WYWYWW:WZWZWX:WUWUNB(I,J)& 4014:J:SW(3)SW(3)NA(I)2:SW(6)SW(6)WYWZ:SW(7)SW(7)W1;25);"F=";FS;:500:I$VS(4)MS(4):NNN(1,1,1):VS(3)(MS(3)MS(4))NN:NNNNC(1,1):VS(2)(MS(2)MS(3))NN:NNNNB(1):VS(1)(MS(1)MS(2))NN:%"FOR UNEQUAL N, SYNTHESIZED DENOMINATOR MS'S ARE:":I17:SW(I)0:I:SW(4)SN:I1A:WY0:WZ0:WT0:WU1Ą"ENTER NUMBER OF REPLICATES: ";N(I,J,K)l#"ENTER THE ";N(I,J,K);" VARIATES:":L1N(I,J,K):Y(I,J,K,L)#YO(I,J,K,L)Y(I,J,K,L)#L:K:J:I:$I13:FSMS(I)MS(I1):FS(FS10000.5)10000:D1DF(I):D2DF(I1):NAME$(I);16);"MS";I;"/MS";I]"I1A::"FOR ";NAME$(1);", CLASS ";I;":":WB1Ą"ENTER NUMBER OF SUBCLASSES (B):";B(I)"J1B(I):"FOR ";NAME$(2);", SUBCLASS ";J;":":WC1Ą"ENTER NUMBER OF SUBSUBCLASSES (C): ";C(I,J)*#K1C(I,J):"FOR ";NAME$(3);", SUBSUBCLASS ";K":":WN): ";XB:I1A:J1B(I):C(I,J)XB:J:I:20347!WC1!:"EQUAL NUMBER OF REPLICATES IN EACH SUBSUBCLASS (C)?(Y/N)":4015:GG2036,2038!WN0:"ENTER NUMBER OF REPLICATES: ";XB:I1A:J1B(I):K1C(I,J):N(I,J,K)XB:K:J:I:2040"WN1z!#??    !Š Բ٠C٠ Π٠Ҡ Գ'ϠΠN5ΠĠ٠t GREETING-1 PROGRAMF"SLAVE DISKETTE CREATED ON 48K SYSTEM"l"BY RC VRIJENHOEK ON 7 FEB 1981"r CҠΠΠӠӮ)eZca(ҠӠΠǠŠӠ̠ϭ̠͠ҠҠĠ٬ź)_cP a(Π)dQ KM6oa(ˠ)GP a(Ҡ)GPa(Π)cPa(­)!ca(Ҡ)G(Pa(ԭ)2cPa(Š) <cca(ŠӺ)FcP a(Π)0Pca( 4)DF(3):MS(4)MS(3)Ur4004:"POOLING:":"MSP=";MS(3);" DF=";DF(3):N12:N23:86:at4004::ZZ0:4006:HCOPY0İ4000:"DO YOU WISH TO:"::5);"1. RE-DISPLAY THE RESULTS"::5);"2. MAKE PREDICTIONS"::5);"3. TRANSFORM THE DATA"::4004:"DEVIATIONS ASSUMED DUE TO A SYSTEMATIC NON-LINEAR TREND.":n:"DEVIATIONS F-TEST P=";PB:4006::"DO YOU WISH TO POOL DEVIATION AND ERROR MEAN SQUARES?(Y/N)":4015:GG112,116pDF(3)DF(3)DF(4):SS(3)SS(3)SS(4):MS(3)SS(3)DF(3):DF(0^4006:4012:197:_(13);(4);"BLOAD CHAIN, A520"M`520"PLOTPOLY"|bD1DT:610:(13);(4);"BLOAD CHAIN, A520"c520"PLOTLINE"dUMMS(3):D1DF(3)::4004:"DEVIATIONS ASSUMED DUE TO AN ADDITIONAL RANDOM FACTOR.":HiUMMS(4):D1DF(4)M=";YM;20);"S.E.=";SY:"L1=";L1;20);"L2=";L2:TZ1GY5GG2:YYM:1170]SY(UM(1SNXM2SB)):L1YITSY:L2YITSY::"S.E. & .95 CONFIDENCE LIMITS FOR THE Y INTERCEPT:":"YI=";YI;20);"S.E.=";SY:"L1=";L1;20);"L2=";L2:TZ1GY5GG2:YYI:117105[VB(UMQ1):600:TT2:DTD1:L1BITVB:L2BITVB::"T(";DT;")=";T::"S.E. & .95 CONFIDENCE LIMITS FOR B:":"B=";BI;20);"S.E.=";VB:"L1=";L1;20);"L2=";L2I\SY(MS(4)SN):L1YMTSY:L2YMTSY::"S.E. & .95 CONFIDENCE LIMITS FOR MEAN Y:":"YIDENCE AND PREDICTION INTERVALS DEPENDS ON THE NATURE OF THE DEVIATIONS"::"DO YOU CONSIDER THE DEVIATIONS FROMZ"LINEARITY TO BE DUE TO A:"::5);"1. ADDITIONAL RANDOM FACTOR"::5);"2. SYSTEMATIC NONLINEAR TREND":4013:GK2:4008:GG100,;"MS";N1;"/MS";N2;25);"F=";FU;:500:/W110X:"THE LINEAR EQUATION IS:"::5);"Y=";YI;" + ";BI;"(X)":4006:4012:MS(3)MS(4)UMMS(3):D1DF(3)::4004:91wY:"CALCULATION OF THE STANDARD ERRORS OF THE LINE'S STATISTICS AS USED IN CON- FDEVIATIONS.":"IF DEVIATIONS CONSIDERED SYSTEMATIC NON- LINEAR TREND, TEST LINEAR OVER ERROR.)":4004TN11:N24:86:N12:N23:86:5);"OR":N12:N24:86:N13:N24:86:87&VFSMS(N1)MS(N2):FU(FS10000.5)10000:D1DF(N1):D2DF(N2):NAME$(N1);16)IAODF(4)0ĺNAME$(4):DF(4);5);SS(4);22);MS(4);37);"MS";I`PNAME$(5):DF(5);5);SS(5)QDF(4)0ĺ:"F:TESTS":N11:N23:86:N12:86:88eR:"F-TESTS":4006:"(IF DEVIATIONS ARE CONSIDERED AS ADDI- TIONAL RANDOM FACTOR, TEST LINEAR OVER SNA:DF(5)SN1:I13:MS(I)SS(I)DF(I):II CDF(4)0MS(4)MS(3):69_ DMS(4)SS(4)DF(4)i EQ1SB FZK2070,2082:4006:4012 K4004::10);"ANOVA TABLE":N"DF";5);"SS";22);"MS":I13:NAME$(I):DF(I);5);SS(I);22);MS(I);37);"MS";I:S9S9N(I)XT(I)2:SPSPXT(I)SU(I):4014:I @S4S12SN:SS(5)S2S4:SS(1)S3S4:SS(4)SS(5)SS(1):SAS82SN:SBS9SA:SCSPS8S1SN:SS(2)SC2SB:SS(3)SS(1)SS(2):BISCSB:YMS1SN:XMS8SN:YIYMBIXM A4011, BDF(1)A1:DF(2)1:DF(3)A2:DF(4)R :TZ0:WM1ĺ:"DO YOU WISH TO TRANSFORM THE VARIATES?(Y/N)":4015:GG1000,60 <:"ONE MOMENT PLEASE, WHILE I CALCULATE!" >SN0:S10:S20:S30:S80:S90:SP0:SC0- ?I1A:SNSNN(I):S1S1SU(I):S2S2SQ(I):S3S3SU(I)2N(I):S8S8N(I)XT(I):ALUE OF X.":NAME$(1)"GROUPS":NAME$(2)"LINEAR":NAME$(3)"DEVIATIONS":NAME$(4)"ERROR":NAME$(5)"TOTAL"z 5HCOPY0İ4000 6:"DO YOU WISH TO SEE A DEMONSTRATION?(Y/N)":4015:GG55,56 72000:2056:58 82020:2056:4004:ZK2060,2090:4006:4012O. Y VALUES FOR AN X VALUE. 3XO(AA),XT(AA),YO(AA,BB),YT(AA,BB),SU(AA),SQ(AA),MN(AA),MO(AA),SV(AA),V(AA),SD(AA),SE(AA),SS(5),DF(5),MS(4),N(AA),Z(CC)g 4:(5):"THIS PROGRAM DOES A REGRESSION ANALYSIS WHERE THERE IS ONE OR MORE VALUES OF Y FOR EACH VL':ZK1:ZZ2197("":10:15);"REGRESSN"::"DO YOU WISH INFORMATION ON USER-DEFINED TRANSFORMATIONS?(Y/N)":"":4015:GG1200,491C(13,3),CS(4),BE(3),BF(3),BX(6),Y1(3) 2AA12:BB30:CCAABB: AA IS NO. OF GROUPS (X VALUES), BB IS MAX. N                         J):J:J78:YT(1,J);10);YT(2,J);15);YT(3,J):J}J910:10);YT(2,J);15);YT(3,J):J:J1113:15);YT(3,J):J:XA1:TU1.96ĺ" *";"";:" NS";:4011:I1N:YTY(I):KKIJIN:Y(J)YTYTY(J):KKJJ:Y(KK)Y(I):Y(I)YTI14:RR:EN(I)RR:I:I1A:J1EN(I):RR:YO(I,J)RR:YT(I,J)RR:J:I:"WIDTH OF SCUTUM OF LARVAE OF THE TICK HAEMAPHYSALIS IN SAMPLES FROM FOUR RABBITS (SOKAL AND ROHLF, BOX 9.1):"2:J16:YT(1,J);10);YT(2,J);15);YT(3,J);20);YT(4,.5TA1000000:480TA100003T(TTA.5)TA9I 8,10,13,6p 380,376,360,368,372,366,374,382 350,356,358,376,338,342,366,350,344,364 354,360,362,352,366,372,362,344,342,358,351,348,348 376,344,342,372,374,360GA4:T1T,COIN:CET:D(COCE):DDKDKD64014XI:DA10000:DK(DKDA.5)DAg" D=";DK;p670wK800R((Z2)2)2.5066292746T1(1.33267(Z))T(R(.4361836T(.1201676(T2)).937298(T3)))Z2(Z):Z23M0ĭS5N2İ370:MM1oI-pMD;"":375[rFR(I)1ĭN2(N2)MD(YX(I)YX(I1))2:sS6S5FR(I):S7N2S6:MDYX(I)US2USS7FR(I):w"KOLGOMOROV-SMIRNOV TEST:";:KC2410xDK0|I1N:Z(Y(I)MN(K))SD(K):Z(Z100.5)100:430:Z0G2SH ^"G1=";G1;:TUTG:518?h20);"G2=";G2;:TUTH:518[i:"MEDIAN=";:KC2368j520:I1N:FR(I)0:I:J1:YX(J)Y(1):FR(1)1kI2N:Y(I)YX(J)FR(J)FR(J)1:365lJJ1:YX(J)Y(I):FR(J)FR(J)1mI:MM0nI1J:S5S5FR(I):MGANS4:GB4SUMS3:GC6SUM2S2N:GD3SUM4N2:GE(N1)(N2)(N3)V(K)2:GF3(N1)2:GG(N2)(N3):G2(N1)(GAGBGCGD)GEGFGGSG(6N(N1))((N2)(N1)(N3)):SG(SG):TGG1SGSH(24N(N1)2)((N3)(N2)(N3)(N5)):SH(SH):TH";SD(K),"SE MEAN=";SE(K):~K1A::"GROUP ";K;", ";EN(K);" VARIATES:":SD(K)(V(K)):SE(K)SD(K)(EN(K)):200:4014:K:N4ĺ:"N<4. NO VALUES FOR G1 AND G2":361GANS3:GB3SUMS2:GC2SUM3N:GD(N1)(N2)SD(K)3:G1(GAGBGC)GD190)xSUM0:S20:S30:S40:S50:N2N2>SZ16336:I1NvSUMSUMY(I):S2S2Y(I)2:S3S3Y(I)3:S4S4Y(I)44014:IMN(K)SUMNSS(S2SUM2N):V(K)SS(N1):SD(K)(V(K)):SE(K)SD(K)(N):"MEAN=";MN(K),"VARIANCE=";V(K):"SD=HOUT ERASING IT, TYPE GOTO 70 (RETURN)": d4004:::"ANALYSIS OF GROUPS - TESTING NORMALITY, INDEPENDENCE, HOMOSCEDASTICITY:" fXA2800 iK1A:106:200:229 jNEN(K):J1N:Y(J)YT(K,J):J n:"GROUP ";K;", ";N;" VARIATES:"sKC2SFORM THE INDIVIDUAL DATA" G:5);"4. DO A MODIFIED ANOVA (OR T-TEST)":9);"(FOR UNEQUAL VARIANCES)"::5);"5. STOP THE PROGRAM" H4013:GK5:4008:GG905,100,1000,950,90+ Z:(13):"THAT'S ALL THERE IS!";"";""::"TO RERUN THE SAME DATA WIT"STANDARD ERROR= ";SE(I):V(I)EN(I)SE(I)2:68c B"STANDARD DEVIATION= ";SD(I):V(I)SD(I)2:68z C"VARIANCE= ";V(I) DI:XA2 F:"DO YOU WISH TO:"::5);"1. DO A ONE-WAY ANOVA (OR T-TEST)"::5);"2. TEST ANOVA ASSUMPTIONS"::5);"3. TRAN1:4012:70! <:"DATA ENTRY:"y =:"HOW MANY GROUPS? ";A:I1A::"FOR GROUP ";I;":":"NUMBER OF VARIATES= ";EN(I) >GG1ĺ"ENTER THE ";EN(I);" VARIATES:":J1EN(I):YO(I,J):YT(I,J)YO(I,J):J:I:XA0:70 ?"MEAN= ";MN(I):GG65,67,66,650 Av 8:"DATA ENTRY. DO YOU WISH TO ENTER:"::5);"1. INDIVIDUAL DATA"::5);"OR MEANS AND"::5);"2. VARIANCES" 9:5);"3. STANDARD DEVIATIONS"::5);"4. STANDARD ERRORS"::5);"5. SEE A DEMONSTRATION" :4013:GK5:4008 ;GG5İ500:XA3M1AZ10:BZ20: AZ IS NO. OF GROUPS, BZ IS MAX. NO. REPLICATES PER GROUP.2YO(AZ,BZ),EN(AZ),Y(BZ),YT(AZ,BZ),MN(AZ),V(AZ),SD(AZ),SE(AZ),G1(AZ),G2(AZ),DK(AZ)3FR(20),YX(20) 7:"ONE-WAY ANOVAS (AND T-TESTS); TESTING ANOVA ASSUMPTIONS":4000                  E)(SZ)(SZ)(SZ)(SZ):I::5);"DO YOU WISH TO:"::5);"1. REVIEW THIS INFORMATION?"::5);"2. STOP THE PROGRAM?"GK2:G$:GG(G$)GG1GGGKĺ"ENTER AGAIN":2003SZ16336:I150:BOUNCE(SZ)(SZ)(SZ)(SZ):I:"":);(4);"CATALOG":"ADDITIONAL PROGRAMS ARE ON THE OTHER SIDE OF THE DISK. FLIP THE DISK AND TYPE: CATALOG (RETURN) -TO GET THE ADDITIONAL LISTING.":5);"TO CONTINUE, PRESS A KEY":A$:SZ16336:I120:BOUNCE(SZMATION OF THE DATA MAY BE DONE."^':"LATIN SQUARE GENERATES LATIN SQUARES UP TO 40 X 40."{2002:2006:GG100,1000:(13):5);"THAT'S IT, FOLKS!":"";""I125:DLY123.4765987.436:I:"HERE COMES THE CATALOG-":2006:(13REE-WAY ANALYSIS OF VARIANCE. IF DESIRED, DATA MAY BE TRANSFORMED." ":"NEST2 DOES A TWO-LEVEL NESTED ANOVA. NEST3 DOES A THREE-LEVEL NESTED ANOVA. IN BOTH INSTANCES, EQUAL OR UNEQUAL SAMPLE SIZES MAY BE ACCOMODATED AND TRANSFORTRANS- FORMED AND UNEQUAL VARIANCES ANOVA AND T-TEST PERFORMED.":"ANOVA2 DOES TWO-WAY ANALYSIS OF VARIANCE AND TUKEY'S TEST FOR NONADDITIVITY. IF NECESSARY, THE DATA MAY BE TRANSFORMED."2000:2001::30);"PAGE 5"N:"ANOVA3 DOES A THTHE WILCOXON SIGNED RANKS TEST."`" (SEE CHAPTER 13 OF SOKAL AND ROHLF, 1969, BIOMETRY.)D:"ANOVA1 DOES ONE-WAY ANALYSIS OF VARIANCE AND T-TEST FOR THE DIFFERENCE BETWEEN TWO MEANS. IN ADDITION, ANOVA ASSUMP- TIONS MAY BE TESTED, THE DATA RESPONDING TO ANY Z, T, CHI-SQUARE OR F VALUE."R2000:2001::30);"PAGE 4" :"NON-PARAMETRICS OFFERS FOUR TESTS: THE KRUSKAL-WALLIS TEST, THE MANN-WHITNEY (WILCOXON'S TWO SAMPLE) TEST, FRIEDMAN'S TEST FOR RANDOMIZED BLOCKS, AND EN X, PREDICTS X GIVEN Y - WITH CONFIDENCE INTERVALS.":"REGRESSN DOES THE SAME WHEN THERE IS ONE OR MORE Y'S FOR EACH X, IN ADDITION TO TRANSFORMATIONS AND ORTHOGONAL POLYNO- MIALS."1:"TABLES ALLOWS LOOKUP OF THE PROBABILITY COREAN CONFIDENCE ELLIPSE."b :"REGRESS CALCULATES (FOR THE CASE OF ONLY ONE Y FOR EACH X):" " A REGRESSION ANOVA, THE EQUATION FOR THE LINE, CONFIDENCE INTERVALS FOR ALL PARAMETERS, CONFIDENCE BELT FOR THE"A" LINE, PREDICTS NEW Y'S GIVMPLES WHILE GRAPHP DOES A 'PROBABIL- ITY PAPER' GRAPH FOR LARGE SAMPLES (SEE CHAPTER 6 OF SOKAL AND RHOLF, BIOMETRY)" 2000:2001::30);"PAGE 3" :"CORRELATE CALCULATE THE SMALL SAMPLE CORRELATION COEFFICIENT, MAJOR AXES, AND BIVARIATE MDISTRIBUTIONS. UN- ORDERED DATA MAY BE TABULATED INTO A FREQUENCY DISTRIBUTION. NORMAL" " EXPECTED VALUES AND GOODNESS-OF-FIT TO NORMAL MAY BE DONE (CHI-SQUARE, G, AND KOLMOGOROV-SMIRNOV D)"v :"GRAPHR DOES A RANKIT GRAPH FOR SMALL SA"" 2000:2001::30);"PAGE 2" :"NORMAL GIVES BASIC STATISTICS INCLUDING MEDIAN, CONFIDENCE LIMITS FOR MEAN AND VARIANCE, G1, G2, KOLMOGOROV-SMIRNOV D AND THEIR SIGNIFICANCE."^ :"THE PROGRAM ACCEPTS EITHER UNORDERED DATA OR FREQUENCY :"CONTINGENCY ANALYSES FREQUENCIES OF ATTRIBUTES, DOING GOODNESS-OF-FIT, TESTS OF INDEPENDENCE, ETC. (SEE CHAPTER 16 OF SOKAL AND ROHLF, BIOMETRY.)" :"FOR ANALYSIS (OR GENERATION) OF CONTI- NUOUS DATA SAMPLES, RUN NORMAL. c""Jd:30);"PAGE 1"::"INTRODUCTION TO STATISTICAL PROGRAMS:"n:"FOR ANALYSIS (OR GENERATION) OF DISCRETE DATA SAMPLES, RUN BINOMIAL, POISSON OR NEGATIVE BINOMIAL PROGRAMS. THESE PROGRAMS ALSO DO GOODNESS-OF-FIT TESTS. x     (.115194YY(.000344YY.019527))))4:PB(PB10000.5)10000:507cYYYY(1.08YY4T3):505zXA0:FS1PB1PBPB.05ĺ" NS":4014:XA1:511PB.01ĺ" *";"":511" **";"";"":7XQT0:STS1AB::"TUKEY'S TEST FOR "ACMAEA DIGITALIS":I2:K1N:Y(I,1,K);10);Y(I,2,K);20);Y(I,3,K):K]3:4006:4012:70oX1:FS1502SD1:TD2:ZFS:503SD2:TD1:Z1FSJ29S:K29T:YY((1K)Z(13)1J)(KZ(23)J)T4506CPB.5(1YY(.196854YY1:K:J:I:""04004::" O2 CONSUMPTION RATE OF TWO SPECIES OF LIMPETS AT THREE CONCENTRATIONS OF SEAWATER (SOKAL AND ROHLF, BOX 11.1)1"100%";10);"75%";20);"50%":"ACMAEA SCABRA:":I1:K1N:Y(I,1,K);10);Y(I,2,K);20);Y(I,3,K):KG24.60,11.10,11.80. 6.14,3.86,10.40,5.49,6.14,10.00,11.60,5.80,4.47,9.90,5.75,11.80,4.95,6.49,5.44,9.90,9.63,6.38,13.40,14.50,14.50,10.20,17.70,12.30/N:A:B:NAME$(2)"SPECIES":NAME$(3)"CONC":I1A:J1B:K1N:YO(I,J,K):Y(I,J,K)YO(I,J,K):401RAM")4013:GK3:4008:GG97,1000,200{:(13):"THAT'S ALL, FOLKS!";"";"":I120:DL1234.567987.65434:I:"":, 8,2,3- 7.16,6.78,13.60,8.93,8.26,14.00,16.10,9.66,5.20,5.20,7.18,6.37,13.20,8.39,10.40,7.18,11.11,9.74,18.80,9.74,10.50,1S10000.5)10000:D1DF(I):D2DF(4):NAME$(I);16);"MS";I;"/MS4";25);"F=";FS;Z~500:Io4006:4012:1944006::HCOPY0İ4000:"DO YOU WISH TO:"::5);"1. REDISPLAY THE RESULTS"::5);"2. TRANSFORM THE DATA"::5);"3. STOP THE PROGN2:N10194{pFSMS(N1)MS(N2):FS(FS10000.5)10000:D1DF(N1):D2DF(N2):NAME$(N1);16);"MS";N1"/MS";N2;25);"F=";FS;s500:110x:"F-TESTS:":MS(4)0ĺ"NO TESTS POSSIBLE. INTERACTION MS IS ZERO.":128yI13N}FSMS(I)MS(4):FS(F:SS(5)0ĺ:120)hNAME$(5);20);"MS5"l4006:"FOR F-TESTS, ENTER THE NUMBER OF THE MS (SEE TABLE ABOVE) FOR THE NUMERATOR AND THAT FOR THE DENOMINATOR IN THE FORM: #MS,#MS (EX: 2,5)"m"TO FINISH, ENTER ZEROS":4004:"F-TESTS:" nN1,""::4004:715:4006:4012:4004>c:12);"ANOVA TABLE":d"DF";5);"SS";22);"MS":I15:NAME$(I):DF(I);5);SS(I);22);MS(I):IfNAME$(6):DF(6);5);SS(6):600:4006:4012:4004g:"SOURCE";18);"MEAN SQ":I14:NAME$(I);20);"MS";I:IS2S6:SS(1)S3S6:SS(2)S4S6:SS(3)S5S6:SS(4)SS(1)SS(2)SS(3):SS(5)SS(6)SS(1) ZDF(1)AB1:DF(2)A1:DF(3)B1:DF(4)DF(2)DF(3):DF(5)AB(N1):DF(6)ABN1 _I14:MS(I)SS(I)DF(I):I:DF(5)0SS(5)0:MS(5)0:97 `MS(5)SS(5)DF(5)"aG(I,J)0U NK1N:S1S1Y(I,J,K):S2S2Y(I,J,K)2:SG(I,J)SG(I,J)Y(I,J,K):K:4011 OS3S3SG(I,J)2N:SA(I)SA(I)SG(I,J):J PS4S4SA(I)2(NB):I QJ1B:SB(J)0:I1A:SB(J)SB(J)SG(I,J):I:S5S5SB(J)2(NA):JS US6S12(ABN):SS(6)3);": CLASS ";J;":":K1N:YO(I,J,K):Y(I,J,K)YO(I,J,K):K:J:I\ D4004:710:4006:4012 FNAME$(4)(NAME$(2),3)" X "(NAME$(3),3) G700 J:"ONE MOMENT PLEASE, WHILE I CALCULATE!" KS10:S20:S30:S40:S50 LI1A:SA(I)0 MJ1B:S ";N >"NAME FOR FACTOR A: ";NAME$(2):"THE NUMBER OF CLASSES FOR FACTOR A: ";A:"THE NAME FOR FACTOR B: ";NAME$(3):"THE NUMBER OF CLASSES FOR FACTOR B: ";B A:"ENTER THE ";N;" VARIATES":I1A:J1BA B:"FOR ";NAME$(2);": CLASS ";I;"; ";NAME$(GROUPS":NAME$(5)"ERROR":NAME$(6)"TOTAL"k 84000::"DO YOU WISH TO SEE A DEMONSTRATION (Y/N)":16368,0 9AN$:AN$"Y"303 :AN$"N"60 ;"ENTER AGAIN":57 <:"ENTER THE FOLLOWING ITEMS:"::"N (THE NUMBER OF REPLICATES IN EACH GROUP):o2AA10:BB10:NN20: AA IS NO. CLASSES FOR FACTOR A, BB IS NO. CLASSES FOR FACTOR B, NN IS NO. REPLICATES.3SG(AA,BB),Y(AA,BB,NN),YO(AA,BB,NN),SS(6),DF(6),MS(6)4NAME$(6),SA(AA),SB(BB),Q(AA)) 7:"TWO-WAY ANALYSIS OF VARIANCE:":NAME$(1)"SUB              ULTS"::5)"2. TRANSFORM THE DATA":5);"3. SAVE THE DATA ON DISK"::5);"4. STOP THE PROGRAM":4013:GK4:4008:GG117,1000,3000,200:(13):"THAT'S ALL, FOLKS!";"";"":I120:DL1223.45659876.3456:I:""0:" TO REDO THE ANALYSIS S(N3)2DF(N3)MS(N4)2DF(N4)MS(7)2DF(7))FSMS(N1)SN:FS(FS10000.5)10000:D1DF(N1):D2DN:NAME$(N1);13);"MS";N1;"/MS";N3;",";N4;",7";25);"F=";FS;500:1404006::HCOPY0İ4000$:"DO YOU WISH TO"::5);"1. REDISPLAY THE RES6);"MS";N1;"/MS";N2;25);"F=";FS;/500:140N13ĺ"DENOMINATOR MEAN SQUARES SYNTHESIZED ONLY FOR MAIN EFFECTS. ENTER AGAIN":140N1153,154,155N34:N45:156N34:N46:156N35:N46SNMS(N3)MS(N4)MS(7)-DNSN2(MND NUMBER"4004c:"SOURCE";18);"MEAN SQ":I17:NAME$(I);20);"MS";I:I:SS(8)0ĺ:137|NAME$(8);20);"MS8":"F-TESTS:"N1,N2:N10194N20150!FSMS(N1)MS(N2):FS(FS10000.5)10000:D1DF(N1):D2DF(N2):NAME$(N1);1OR F-TESTS, ENTER THE NUMBER OF THE MS (SEE TABLE BELOW) FOR THE NUMERATOR AND THAT FOR THE DENOMINATOR IN THE FORM: #MS,#MS (EX: 1,7)" "TO FINISH, ENTER ZEROS":"WHEN NECESSARY TO SYNTHESIZE A DENOMIN- ATOR MEAN SQUARE, ENTER ZERO FOR THE SECOF(I):I:DF(8)0SS(8)0:MS(8)0:117;tMS(8)SS(8)DF(8)\u4004:715:4006:4012:4004zx""::12);"ANOVA TABLE"z"DF";5);"SS";22);"MS":I18:NAME$(I):DF(I);5);SS(I);22);MS(I):I}NAME$(9):DF(9);5);SS(9)4006:4012:"FS3S5S0:SS(6)S8S4S5S0ZnSS(7)S9S6S7S8S3S4S5S0:SS(8)S2S9:SS(9)S2S0:""pADA1:BDB1:CDC1:DF(1)AD:DF(2)BD:DF(3)CD:DF(4)ADBD:DF(5)ADCD:DF(6)BDCD:DF(7)ADBDCD:DF(8)(N1)ABC:DF(9)ABCN1:""%sI17:MS(I)SS(I)D`K1C:SC(K)0'aI1A:AC(I,K)0kbJ1B:SC(K)SC(K)SG(I,J,K):AC(I,K)AC(I,K)SG(I,J,K):4014:JcS7S7AC(I,K)2(BN):IdS5S5SC(K)2(BCN):K:4011iS0S12(ABCN):SS(1)S3S0:SS(2)S4S0:SS(3)S5S0:SS(4)S6S3S4S0:SS(5)S76AB(I,J)2(CN):J7RS3S3SA(I)2(BCN):I:4011EUS40:S80XVJ1B:SB(J)0mWK1C:BC(J,K)0XI1A:SB(J)SB(J)SG(I,J,K):BC(J,K)BC(J,K)SG(I,J,K):4014:IYS8S8BC(J,K)2(AN):KZS4S4SB(J)2(ACN):J:4011_S50:S70ATE!"" KS10:S20:S90:S30:S605 LI1A:SA(I)0J MJ1B:AB(I,J)0a NK1C:SG(I,J,K)0 OL1N:YNY(I,J,K,L):SG(I,J,K)SG(I,J,K)YN:S1S1YN:S2S2YN2:L:4014 PSA(I)SA(I)SG(I,J,K):S9S9SG(I,J,K)2:AB(I,J)AB(I,J)SG(I,J,K):KQS6SX "(NAME$(2),3):NAME$(5)(NAME$(1),3)" X "(NAME$(3),3):NAME$(6)(NAME$(2),3)" X "(NAME$(3),3) HNAME$(7)(NAME$(1),3)" X "(NAME$(2),3)" X "(NAME$(3),3):NAME$(8)"ERROR":NAME$(9)"TOTAL" I700 J:"ONE MOMENT, PLEASE, WHILE I CALCUL: ";C B:"ENTER THE ";N;" VARIATES":I1A:J1B:K1C::"FOR ";NAME$(1);": CLASS ";I;"; ";NAME$(2);": CLASS ";J;"; ";NAME$(3);": CLASS ";K CL1N:YO(I,J,K,L):Y(I,J,K,L)YO(I,J,K,L):L:K:J:I D4004:710:4006g FNAME$(4)(NAME$(1),3)" PLICATES IN EACH GROUP:";N >"NAME FOR FACTOR A: ";NAME$(1):"THE NUMBER OF CLASSES FOR FACTOR A: ";A:"NAME FOR FACTOR B: ";NAME$(2):"THE NUMBER OF CLASSES FOR FACTOR B: ";B @"NAME FOR FACTOR C: ";NAME$(3):"THE NUMBER OF CLASSES FOR FACTOR CREE-WAY ANALYSIS OF VARIANCE:":4000 8:"DO YOU WISH TO:"::5);"1. ENTER DATA"::5);"2. READ DATA FROM DISK"::5);"3. SEE A DEMONSTRATION" 94013:GK3:4008:GG60,3030,2000 <:720::"ENTER THE FOLLOWING ITEMS:"::"N (THE NUMBER OF REJ"r2AA5:BB5:CC5:NN10: AA, BB, CC ARE THE NO. OF CLASSES FOR FACTORS A, B AND C. NN IS THE NO. REPLICATES.3Y(AA,BB,CC,NN),YO(AA,BB,CC,NN),SG(AA,BB,CC),AB(AA,BB),AC(AA,CC),BC(BB,CC),SA(AA),SB(BB),SC(CC),SS(10),DF(10),MS(10),NAME$(10)$ 7:"TH                  ԠҤҤĠٍ̠)AD):4014:K:J:I:B$"SQUARE ROOT":GT2:1060wXT1:XU1:XV1:I1A:J1B(I):K1N(I,J):YO(I,J,K)0XT2:XV2YO(I,J,K)1XU2:XV2K:J:4014:IXV11050XT2ĺ"VARIATE LESS THAN ZERO ENCOUNTERED."XU2ĺ"VARIATE GREATEXT3K:4014:J:I/XT1030,1027,1028|"ZERO VARIATE ENCOUNTERED. TRANSFORM IS SQR(Y + .5)":AD.5:GT2:1030"NEGATIVE VARIATE ENCOUNTERED. TRANS- FORMATION STOPPED.":4012:10000I1A:J1B(I):K1N(I,J):Y(I,J,K)(YO(I,J,K1:1015VAD(NY)1:"NEGATIVE VARIATE ENCOUNTERED. TRANSFORM IS LOG(Y + ";AD;")"I1A:J1B(I):K1N(I,J):Y(I,J,K)(YO(I,J,K)AD):4014:K:J:IB$"LOG":GT1:1060XT1:I1A:J1B(I):K1N(I,J):YO(I,J,K)0XT2YO(I,J,K)0:GK6:4008:GG1006,1020,1040,1055,75,200gXT1:NY0:I1A:J1B(I):K1N(I,J):YO(I,J,K)0XT2YO(I,J,K)0XT3:YO(I,J,K)NYNYYO(I,J,K)K:4014:J:IXT1015,1012,1013"ZERO VARIATE ENCOUNTERED. TRANSFORM IS LOG(Y + 1)":ADSA2/BN=";S4:"CT=";S5!"TRANSFORMATIONS:":"WHICH TRANSFORMATION?"::5);"1. LOGS"::5);"2. SQUARE ROOT"::5);"3. ANGULAR":5);"4. BACK TRANSFORM TO ORIGINAL"::5);"5. NO TRANSFORM"::5);"6. STOP THE PROGRAM"*4013K1N(I,J):Y(I,J,K):K:J:I:D:"GROUP AND SUBGROUP TOTALS:"I1A::NAME$(1);" CLASS ";I;" SUM=";SA(I);" N=";NA(I)B(I);" ";NAME$(2);" SUM,(N):":J1B(I):SB(I,J);"(";N(I,J);")",:J:I:"SY=";S1;20);"SY2=";S2:"SB2/N=";S3;20);" YYYY(1.08YY4T3):5052FS1PB1PBPPB.05ĺ" NS":4011:511kPB.01ĺ" *";"":511~" **";"";"":"":"THE DATA AS ENTERED ARE:"I1A:J1B(I) :NAME$(1);": CLASS ";I;"; ";NAME$(2);": SUBCLASS ";J;":":234.567987.6543:I:"":,X1:FS1502DSD1:TD2:ZFS:503YSD2:TD1:Z1FSJ29S:K29T:YY((1K)Z(13)1J)(KZ(23)J)T4506PB.5(1YY(.196854YY(.115194YY(.000344YY.019527))))4:PB(PB10000.5)10000:507Y0İ4000:"DO YOU WISH TO:"::5);"1. REDISPLAY THE RESULTS"::5);"2. TRANSFORM THE DATA"::5);"3. STOP THE PROGRAM"4013:GK3:4008:GG197,1000,2004004:710:4006:4012:90:(13):"THAT'S ALL, FOLKS!";"";;"":I120:DL1N1ī100# c2040:4006:4012:110> d2060:4006:4012:110 n4004::"FOR TOP LEVEL MODEL II:":AX1:2080::"FOR TOP LEVEL MODEL I:":AX2:2080 o:"(NOTE: COMPONENTS <= 0 ARE SET = 0 FOR CALCULATING PERCENTAGES.)":4006:4012:194 :HCOP715:4006:4012z \4004::10);"ANOVA TABLE"::"DF";5);"SS";22);"MS":I13:NAME$(I):DF(I);5);SS(I);22);MS(I):I ^NAME$(4):DF(4);5);SS(4) _:"SOURCE";18);"MEAN SQUARE":I13:NAME$(I);20);"MS";I:I::"F-TESTS:" `WB1ī100 aWJ):SA(I)SA(I)SB(I,J):NA(I)NA(I)N(I,J):Jd US4S4SA(I)2NA(I):SNSNNA(I):NBNBB(I):I:4011 VS5S12SN:SS(4)S2S5:SS(1)S4S5:SS(2)S3S4:SS(3)S2S3:DF(1)A1:DF(2)NBA:DF(3)SNNB:DF(4)SN1 W"":I13:MS(I)SS(I)DF(I):I Z4004:000,755 K:"ONE MOMENT PLEASE, WHILE I CALCULATE!"W LS10:S20:S30:S40:SN0:NB0c MI1A:w NSA(I)0:NA(I)0 OJ1B(I) PSB(I,J)0 QK1N(I,J) RYNY(I,J,K):S1S1YN:S2S2YN2:SB(I,J)SB(I,J)YN S4014:K, TS3S3SB(I,J)2N(I,D ANALYSIS OF VARIANCE":NAME$(3)"ERROR":NAME$(4)"TOTAL" 84000::"DO YOU WISH TO SEE A DEMONSTRATION?(Y/N)":16368,0:4015:GG60,65 <2000:70 A2020: D4004:710:4006 F:"DO YOU WISH TO TRANSFORM THE DATA?(Y/N)":16368,0:4015:GG1k2AA15:BB10:NN10: AA, BB ARE NO. OF CLASSES AT LEVELS A, B. NN IS THE MAX. REPLICATION IN LEVEL B.3SA(AA),NA(AA),B(AA),SB(AA,BB),N(AA,BB),NAME$(4),SS(4),MS(3),DF(4),Y(AA,BB,NN),YO(AA,BB,NN)4SW(4),MP(2),VS(3),VP(3)9 7:"TWO-LEVEL NESTE                R (EX: 9, 3 FOR 9/16, 3/16):":D0:I1A:EF(I):DDEF(I):I:I1A:EF(I)EF(I)D:I"ENTER THE OBSERVED FREQUENCIES:":N0:I1A:OF(I):NNOF(I):I:I1A:EF(I)EF(I)N:II1A:EF(I)(EF(I)10.5)10:IYG10:G20:XQ0:I1A:XF(I)(LS (EX: .636) OR"::5);"2. FRACTIONS (EX: 9/16)?"PGK2:4008:GG225,230"ENTER THE EXPECTED FREQUENCIES AS DECIMALS:":I1A:EF(I):I:235T"ENTER THE EXPECTED FREQUENCIES AS THE NUMERATOR OF FRACTIONS WITH A COMMON DENOMINATOX4014::"THIS PROGRAM DOES CHI-SQUARE AND G GOOD-NESS OF FIT TESTS WHERE THERE ARE MORE THAN TWO FREQUENCY CLASSES."4018:GG265,2155"ENTER THE NUMBER OF CLASSES:";A:"WILL YOU ENTER THE EXPECTED FREQUENCIES AS:":5);"1. DECIMAI0IN205!IIDP:201t5);"P, THIS TAIL=";P1:7);"OTHER TAIL=";P2:P3P1P2:12);"TOTAL=";P3;:5054006:4012::HCOPY0İ40003000:GG174,130,100,1400XNI:FCI:410:YFFC:FCX:410:XFFC:CFNF(YFXF):PXCFQF(1)IQF(2) ARE:":FCN:410:NFFC:P10:P20:IOF(1):QF(1)PF(1):QF(2)PF(2):PP(OF(1)NPF(1)):DP1:OF(1)EF(1)DP1208:P1P1PX:I0INDPDP(1):IOF(1)DP:4011:201IIDP:198QQ(INPF(1)):QDQQPP:(QD)1E08QD0QD0İ208:P2P2PX;13);N::"WITHOUT YATE'S CORRECTION:":5);"CHI-SQUARE=";C1;:XXC1:395:X$:14);"G=";G;:XXG:395:X$"WITH YATE'S CORRECTION:":5);"CHI-SQUARE=";C2;:XXC2:395:X$:14);"G=";GY;:XXGY:395:X$N25ī206l:"N<25. EXACT BINOMIAL PROB..5LG3G3OY(I)(OY(I)):G4G4OY(I)(EF(I)):I:G2(G1G2):GY2(G3G4)V4004DA1000::"CLASS";7);"OBS";13);"EXP";22);"X2":I12:EF(I)(EF(I)DA.5)DA:XF(I)(XF(I)DA.5)DA:3);I;7);OF(I);13);EF(I);22);XF(I):Ii"TOTAL";7);NNOF(I):I:I12:EF(I)PF(I)N:IC10:C20:I12:XF(I)(OF(I)EF(I))2EF(I):C1C1XF(I):C2C2((OF(I)EF(I)).5)2EF(I):IG10:G20:G30:G40:I12:G1G1OF(I)(OF(I)):G2G2OF(I)(EF(I)):OF(I)EF(I)OY(I)OF(I).5:170OY(I)OF(I)LS:":I12:PF(I):I:150"ENTER THE EXPECTED FREQUENCIES AS THE NUMERATOR OF FRACTIONS WITH A COMMON DENOMINATOR (EX: 3 FOR 3/4):":D0:I12:PF(I):DDPF(I):I:I12:PF(I)PF(I)D:I#"ENTER THE OBSERVED FREQUENCIES:":N0:I12:OF(I):NIT OF A FREQUENCY DISTRIBUTION WHERE THERE ARE ONLY 2 CLASSES." "WILL YOU ENTER THE EXPECTED FREQUENCIES AS:"::5);"1. DECIMALS (EX:.75)"::5);"2. FRACTIONS (EX:9/16)?":GK2:4008:GG140,145"ENTER THE EXPECTED FREQUENCIES AS DECIMABLE":2);"3. R X C X A TABLE":2);"4. EQUALITY OF 2 PERCENTAGES" x2);"5. SAMPLE SIZE FOR 2 PERCENTAGES":2);"6. MCNEMAR TEST":2);"7. COCHRAN'S Q TEST":GK7:4008:GG280,575,820,995,1055,1160,1240@ :"THIS PROGRAM TESTS THE GOODNESS OF FTHE APPRO- PRIATE NUMBER FOR:"::2);"1. ONLY 2 CLASSES":2);"2. MORE THAN 2 CLASSES":2);"3. REPLICATED TESTS":GK3:4008:GG130,210,1345D s:"TESTS OF INDEPENDENCE. KEY THE APPRO- PRIATE NUMBER FOR:":2);"1. 2 X 2 TABLE":2);"2. R X C TAND NORMAL DISTRIBUTIONS, SEE THE PROGRAMS FOR THOSE DISTRIBUTIONSU fHCOPY0İ4000 i:"KEY THE APPROPRIATE NUMBER FOR:"::2);"1. GOODNESS OF FIT TESTS"::2);"2. TESTS OF INDEPENDENCE":GK2:4008:GG110,115 n:"GOODNESS OF FIT TESTS. KEY .b cX(R,C),RR(R),CC(C),XX(R,C,A),OF(A),EF(A),XF(A),PF(2),QF(2),DY(2),AA(5),BB(5),DD(5),NAME$(4)B d:"PROGRAMS DEALING WITH THE ANALYSIS OF FREQUENCY DATA.":"FOR PROGRAMS DEALING WITH THE GOODNESS OF FIT TO BINOMIAL, POISSON, NEGATIVE BINOMIAL AA\Z768,104:769,168:770,104:771,166:772,223:773,154:774,72:775,152:776,72:777,96 bA10:R25:C10: R AND C ARE THE NO. OF ROWS AND COLUMNS IN AN R X C TABLE. A IS THE 3RD DIM OF AN R X C X A TABLE OR THE NO. CLASSES IN A GOODNESS OF FIT TEST                                 8E:5);"(TO CONTINUE, PRESS A KEY)";"":16368,0:A$::z:5);"(PRESS THE APPROPRIATE KEY)":16368,0:"16300,0:16298,0:E,YSMN(1):YMMN(1):I1A:MN(I)YSYSMN(I)\.MN(I)YMYMMN(I)0I:YDYMYS:YE10YD191:YMYMYE:YSYSYE:YDYMYS1I1A:X(XT(I)XS)279XD:155:I216368,0:G$:GG(G$)GG1GGGKĺ"ENTER AGAIN":4004,0:16302,0:16299,0:16297,02"":4012:8"DO YOU WISH TO:"::5);"1. REDISPLAY THE GRAPH"::5);"2. RETURN TO REGRESSN"::5);"3. STOP THE PROGRAM"4013:GK3:4008:GG122,246,250ZZ2:110:10:"PROGRAM STOPPED.":YY1(3)BX(4)XBX(5)X2BX(6)X3<YYSYYMGG1:212rXP(XXS)279XD:YP191(YYS)191YD:GG204,206XP,YP:GG2:212XP,YP:II15:BOUNCE(SZ)(SZ)(SZ)(SZ):IIXXXE:XXM216195IGCOPY1:230!1630Y191(YYS)191YD:GG188,189* X,Y:6 X,Y: X(XRXS)279XD:Y191(YRYS)191YD:X1X3:X2X3:Y1Y3:Y2Y3:X1,Y1X2,Y2:X1,Y2X2,Y1 "":XE4XD279:AMAN1 I1AM:GG1:XXS I196,198 YY1(2)BX(2)XBX(3)X2:200#Y3:X1,YX2,Y:X,Y1X,Y2J II110:BOUNCE(SZ)(SZ)(SZ)(SZ):IIP r GG1:XXS:185:GG2:XXM:185 II150:BOUNCE(SZ):II 190 YY1(1)BX(1)X:YYSYYS:X(YY1(1))BX(1) YYMYYM:X(YY1(1))BX(1) X(XXS)279XD:YT(I,J)A J:I:YDYMYS:YE4YD191:YSYSYE:YMYMYE:YDYMYS I1A:X(XT(I)XS)279XD:J1N(I):Y191(YT(I,J)YS)191YD:X,Y II15:BOUNCE(SZ)(SZ)(SZ)(SZ):II J:155:I:180 X1X3:X2X3:Y191(MN(I)YS)191YD:Y1Y3:Y2 ~XRXM:YRYM+ XSXT(1):XMXT(1):I1AB XT(I)XSXSXT(I)Y XT(I)XMXMXT(I) I:XDXMXS:XE4XD279:XSXSXE:XMXMXE:XDXMXS WM1İ300A:180 YSYT(1,1):YMYT(1,1) I1A:J1N(I):YT(I,J)YSYSYT(I,J) YT(I,J)YMYM- IF AVAILABLE; THE MEAN Y'S FOR EACH X (CROSSES) AND THE LINEAR, QUADRATIC AND CUBIC LINES." y:"WHEN THE GRAPH IS FINISHED (AT THE FINAL BELL), PRESS A KEY TO CONTINUE.":4012:GCOPY0 zGCOPY1225 }:7:0,00,191279,191:SZ16336{ hdA0ė:10:"";"THIS PROGRAM INTENDED FOR USE ONLY BY CHAINING FROM REGRESSN.":4012:ZZ1:110qf120n(13);(4);"BLOAD CHAIN, A520"oXMXR:YMYRp520"REGRESSN"a x:10:"THIS ROUTINE WILL PLOT THE INDIVIDUAL VARIATES (POINTS)       膢 ȱ " <67 L  8ij v vo>