* PS2.3, SHAZAM command file for Section 2.5, using DATA2-2 sample 1 427 read(data2-2) colgpa hsgpa stat colgpa / mean=xbar stdev=sx stat hsgpa / mean=ybar stdev=sy genr x=colgpa genr y=hsgpa genr n = $n genr sxy = (x-xbar)*(y-ybar) genr covxy = sum(sxy)/(n-1) genr corxy = covxy/(sx*sy) smpl 427 427 print xbar sx ybar sy print covxy corxy stop