Input file: NONE (Data
entered in
program)
;
** Output
file: NONE
;
;
Notes: Data is entered
after the DATA
statement
;
Enter pearsons r
on first
line
;
Enter sample size
on second
line
**;
*****;
DATA A;
r
=0.896; ENTER
pearsons r ;
n
=10; ENTER
sample size ;
DO NOT EDIT THE PROGRAM
BEYOND THIS LINE ;
find Fishers z ;
z= 0.5(log((1+r)/(1−r)));
find two quantities, z1 and
z2 ;
z1 = z- (1.96/sqrt(n−3));
z2 = z+ (1.96/sqrt(n−3));
find the 95% confidence
intervals ;
lower = round ((exp(2z1)
−1)/(exp(2z1) +1), .001);
upper = round ((exp(2z2)
−1)/(exp(2z2) +1), .001);
proc print split ='';
id r;
var n lower upper;
label r = 'Pearsons r'
Appendix 388