Title “Power calculations: Step 3”;
data power;
set contrasts;
alpha = 0.05;
n = 50;	* Number of subjects;
ni = 6;	* Number of fibers per subject
P = 2;	* Number of fixed effects
dendf0 = n*ni − n;
qf = finv(1−alpha, numdf, dendf0);
dendfA = n*ni − p;
power = 1 − probf(qf, numdf, dendfA, Fvalue*numdf);
put power=;	* Equal to 0.7436023;
run;