**TI89**mainRcorrtestτ₯Zš() Prgm ClrIO ToolBar Title "corrtest" Item "data",lbl1 Item "stats",lbl2 Item "quit",lbl3 EndTBar Lbl lbl1 Disp "level of significance" Input a FnOff TwoVar c1,c2 nStatn minXxmin maxXxmax (maxX-minX)/10xscl minYymin maxYymax (maxY-minY)/10yscl PlotsOff PlotsOn 1 NewPlot 1,1,c1,c2,,,,1 LinReg c1,c2 Regeq(x)y1(x) corrc Goto lbl4 Lbl lbl2 Disp "sample size" Input n Disp "sample corr." Input C Disp "level of significance" Input a Lbl lbl4 c*¨(n-2)/¨(1-c^2)z s\tcdff(0,z,n-2)b b+.5l .5-br ClrIO If a>r Then Disp "reject corr. œ 0" Else Disp "accept corr. œ 0" EndIf If a>l Then Disp "reject corr. ž 0" Else Disp "accept corr. ž 0" EndIf If (a/2>r) or (a/2>l) Then Disp "reject corr. = 0" Else Disp "accept corr. = 0" EndIf Output 40,1,"test stat" Output 40,70,z Output 50,1,"tail values" Output 50,70,{round(l,4),round(r,4)} Output 60,1,"sample corr" Output 60,75,round(c) Lbl lbl3 Stop EndPrgm δε܈