pz=sqrt(function) −pza;
power=round(abs(probnor
m(pz)),.01);
end;
/ Print out
results /
title1 'COMPARISON OF TWO MEANS
(PAIRED DATA)';
proc print split='';
where flag=1; / found
n
/
id power;
var alpha diff sd n;
label n='CALCULATED
VALUE OF N';
title3 'Finding number
of subjects (n)';
run;
proc print split='';
where
flag=2; / found
power
/
id alpha;
var diff sd n power;
label power='CALCULATED
VALUEOF POWER';
title3 'Finding the
power';
run;
Figure 4: SAS program
POWER3, sample size
and power calculations
for comparison of two
means for paired data
***;
Filename: CHI.JOB
**;
Appendix 360