C-FOCAL,1969 07.01 TYPE "DUNNETT'S T TEST" 07.10 ASK,!!, "NO. OF SAMPLES IN CTL GROUP",NC 07.20 ASK "CTL GROUP MEAN",XC 07.30 ASK,!, "NUMBER OF EXPTL GROUPS",NE 07.40 TYPE "NO. OF SAMPLES IN EACH EXPTL GROUP" 07.50 FOR I=1,NE;ASK NE(I) 07.60 TYPE "EXPTL GROUP MEANS" 07.70 FOR I =1,NE;ASK XE(I) 07.71 ASK,!, "WITHIN GROUP MEANS SQUARED",MW 07.72 FOR I=1,NE;DO 8 07.80 SET SN=0 07.81 FOR I=1,NE;SET SN=SN+NE(I) 07.82 SET WG=NC+SN-NE-1 07.83 T,!!,"DEGREES OF FREEDOM BETWEEN GROUPS",NE 07.84 T,!,"DEGREES OF FREEDOM WITHIN GROUPS ",WG 07.85 QUIT 08.10 SET A(I)=MW*/(NC*NE(I)) 08.20 SET T(I)=/FSQT 08.30 T,!,"DUNNETT'S T SCORE BETWEEN CTL GROUP & GROUP",I," IS",T(I) 08.40 RETURN *