C-FOCAL,1969

07.01 TYPE "DUNNETT'S  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)>/(NC*NE(I))
08.20 SET T(I)=<XC-XE(I)>/FSQT<A(I)>
08.30 T,!,"DUNNETT'S T SCORE BETWEEN CTL GROUP & GROUP",I," IS",T(I)
08.40 RETURN
*