$\%$macro yates$3$s$($data$,$kk$,$n$)$;

$/*$ YATES ALGORITHM TO COMPUTE EFFECTS FOR A THREE$-$LEVEL EXPERIMENT $*/$

data $=$ input data step. see example at end for read in

kk $=$ power of $3$

$=$ number of steps in the Yates Computations

$=$ number of variables

n $=$ length of data array $=3^$kk when full factorial, else n$=$fraction or block size $*/$

$\%$MACRO keeper;

keep $\%$do i$=0\%$to &kk; step&i $\%$end;

$\%$MEND; $*$DATA IS READ INTO c$1-$c&n; data yates; set &data; $\%$keeper;

$\%$put "Data"; $*$DEFINE COLUMN ARRAYS, ONE ADDITIONAL COLUMN FOR YATES STDZ EFECT IS ALLOWED FOR;

array s$0(*)$ c$1-$c&n

$\%$do j$=1\%$to &n;

$\%$do i$=1\%$to &kk;

array s&i$($&n$)$

s&i$($&j$)=0$;

$\%$end; $\%$end;

$\%$mend;