This statistical program will calculate an ANOVA table for a completely
Randomized Design up to 6 treatments. (will not do blocks or covariates)
----begin documentation----
Program:  RandDsgn
Author:  Dan Watkins (Goodman@Brahms.udel.edu)
Size:  1745 bytes

This is a very easy program to execute.
First you enter how many treatments you have.....
Then you enter the Mean, Standard deviation, and # of observations
for each treatment (you will be prompted for these componets).

The program will output the ANOVA table componets....

the Grand Mean

Sum of Squares: Treatment, Error, Total
Degrees of Freedom:  Treatment, Error, Total
Means Squared: Treatment, Error
F calc 
degrees of freedom for F critical (used for Hypothesis testing)
----end documentation----
----begin ascii----
----end ascii----
----begin uue----
begin 644 randdsgn.85p
M*BI423@U*BH:#`!0<F]G<F%M(&9I;&4@9&%T960@,#,O,3$O.3,L(#(R.C(X
M``!"-^)MI)+5!@P`Q082"%)A;F1$<V=NQ0;#!NQOZ2U204Y$3TU)6D5$($1%
M4TE'3@!OZ2T`;^DM2&]W(&UA;GD@=')E871M96YT<P!OZ2TH,B!T;R`V*0!O
MYC-!;^<W6&)A<C%OYS1S,6_G-$XQ;^<W6&)A<C)OYS1S,F_G-$XR;]@S05!$
M,@!O$!`T3C%P-UAB87(Q8#1.,G`W6&)A<C(1<1`T3C%@-$XR$1$+,T)OV#-!
M5$0S`&_9;^<W6&)A<C-OYS1S,V_G-$XS;Q`0-$XQ<#=88F%R,6`T3C)P-UAB
M87(R8#1.,W`W6&)A<C,1<1`T3C%@-$XR8#1.,Q$1"S-";]YOV#-!5$0T`&_9
M;^<W6&)A<C1OYS1S-&_G-$XT;Q`0-$XQ<#=88F%R,6`T3C)P-UAB87(R8#1.
M,W`W6&)A<C-@-$XT<#=88F%R-!%Q$#1.,6`T3C)@-$XS8#1.-!$1"S-";]YO
MV#-!5$0U`&_9;^<W6&)A<C5OYS1S-6_G-$XU;Q`0-$XQ<#=88F%R,6`T3C)P
M-UAB87(R8#1.,W`W6&)A<C-@-$XT<#=88F%R-&`T3C5P-UAB87(U$7$0-$XQ
M8#1.,F`T3C-@-$XT8#1.-1$1"S-";]YOV#-!4$0V`&_9;^<W6&)A<C9OYS1S
M-F_G-$XV;Q`0-$XQ<#=88F%R,6`T3C)P-UAB87(R8#1.,W`W6&)A<C-@-$XT
M<#=88F%R-&`T3C5P-UAB87(U8#1.-G`W6&)A<C81<1`T3C%@-$XR8#1.,V`T
M3C1@-$XU8#1.-A$1"S-";]YOZ2U'<F%N9%@]`&_I,T)OXF_8,T%01#(`;]EO
M$#1.,1`W6&)A<C%A,T(12F`T3C(0-UAB87(R83-"$4H1"S-#;Q`0-$XQ840Q
M`!$T<S%*8!`T3C)A1#$`$31S,DH1"S-$;]YOV#-!5$0S`&_9;Q`T3C$0-UAB
M87(Q83-"$4I@-$XR$#=88F%R,F$S0A%*8#1.,Q`W6&)A<C-A,T(12A$+,T-O
M$!`T3C%A1#$`$31S,4I@$#1.,F%$,0`1-',R2F`0-$XS840Q`!$T<S-*$0LS
M1&_>;]@S051$-`!OV6\0-$XQ$#=88F%R,6$S0A%*8#1.,A`W6&)A<C)A,T(1
M2F`T3C,0-UAB87(S83-"$4I@-$XT$#=88F%R-&$S0A%*$0LS0V\0$#1.,6%$
M,0`1-',Q2F`0-$XR840Q`!$T<S)*8!`T3C-A1#$`$31S,TI@$#1.-&%$,0`1
M-',T2A$+,T1OWF_8,T%41#4`;]EO$#1.,1`W6&)A<C%A,T(12F`T3C(0-UAB
M87(R83-"$4I@-$XS$#=88F%R,V$S0A%*8#1.-!`W6&)A<C1A,T(12F`T3C40
M-UAB87(U83-"$4H1"S-#;Q`0-$XQ840Q`!$T<S%*8!`T3C)A1#$`$31S,DI@
M$#1.,V%$,0`1-',S2F`0-$XT840Q`!$T<S1*8!`T3C5A1#$`$31S-4H1"S-$
M;]YOV#-!4$0V`&_9;Q`T3C$0-UAB87(Q83-"$4I@-$XR$#=88F%R,F$S0A%*
M8#1.,Q`W6&)A<C-A,T(12F`T3C00-UAB87(T83-"$4I@-$XU$#=88F%R-6$S
M0A%*8#1.-A`W6&)A<C9A,T(12A$+,T-O$!`T3C%A1#$`$31S,4I@$#1.,F%$
M,0`1-',R2F`0-$XS840Q`!$T<S-*8!`T3C1A1#$`$31S-$I@$#1.-6%$,0`1
M-',U2F`0-$XV840Q`!$T<S9*$0LS1&_>;Q`S1&`S0Q$+,T5OZ2U34U0]`&_I
M,T-OXF_I+5-313T`;^DS1&_B;^DM4U-T;W1A;#T`;^DS16_B;Q`S06%$,0`1
M"S-&;]@S05!$,@!O$!`T3C%@-$XR$6%$,0`1"S-';]@S051$,P!O$!`T3C%@
M-$XR8#1.,Q%A1#$`$0LS1V_8,T%41#0`;Q`0-$XQ8#1.,F`T3C-@-$XT$6%$
M,0`1"S-';]@S051$-0!O$!`T3C%@-$XR8#1.,V`T3C1@-$XU$6%$,0`1"S-'
M;]@S05!$-@!O$!`T3C%@-$XR8#1.,V`T3C1@-$XU8#1.-A%A1#$`$0LS1V\0
M,T=A,T81"S-(;^DM9&94/0!OZ3-&;^)OZ2UD9D4]`&_I,TAOXF_I+61F5$]4
M04P]`&_I,T=OXF_I+4U35#T`;Q`S0W$S1A$+,TEOZ3-);^)OZ2U-4T4]`&\0
M,T1Q,T@1"S-*;^DS2F_B;^QOZ2U&(&-R:70]`&_I$#-&+S-($6_I+2`@("`@
M("`H57-E($8@=&%B;&5S*0!OZ2T`;^DM1B!C86QC/0!O$#-)<3-*$0LS2V_I
&,TMOXZ8`
`
end
----end uue----