{VERSION 5 0 "IBM INTEL NT" "5.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 1 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 
0 0 1 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 1 }
{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 
2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Warning" -1 7 1 
{CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 2 2 2 2 2 1 1 1 3 1 }1 1 0 
0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Output" -1 11 1 {CSTYLE "" -1 
-1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 3 0 0 0 0 1 0 1 0 2 2 
0 1 }{PSTYLE "Maple Output" -1 12 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 
0 1 2 2 2 2 2 2 1 1 1 1 }1 3 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple P
lot" -1 13 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 
1 }3 1 0 0 0 0 1 0 1 0 2 2 0 1 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "with(stats): with(pl
ots): " }}{PARA 7 "" 1 "" {TEXT -1 50 "Warning, the name changecoords \+
has been redefined\n" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 11 "REGRESSIO
N:" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "n:=
12:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "x:=[i$i=1..n];" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"xG7.\"\"\"\"\"#\"\"$\"\"%\"\"&\"\"
'\"\"(\"\")\"\"*\"#5\"#6\"#7" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 40 "y:=evalm(3*x-14+5*[random[normald](n)]);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%\"yG-%'vectorG6#7.$!+g@!37&!\"*$!+l?o\"3\"!\")$!*-II#
QF.$!+b9v7#*F+$!+q6)fR%F+$\"*xE**)QF.$!*#=REfF.$\"*gVOy(F.$\"*g#f$)zF.
$\"+I^1'e\"F.$\"+IC7jEF.$\"+*oRu*=F." }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 32 "data:=[seq([x[i],y[i]],i=1..n)];" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%%dataG7.7$\"\"\"$!+g@!37&!\"*7$\"\"#$!+l?o\"3\"!\")7$
\"\"$$!*-II#QF/7$\"\"%$!+b9v7#*F*7$\"\"&$!+q6)fR%F*7$\"\"'$\"*xE**)QF/
7$\"\"($!*#=REfF/7$\"\")$\"*gVOy(F/7$\"\"*$\"*g#f$)zF/7$\"#5$\"+I^1'e
\"F/7$\"#6$\"+IC7jEF/7$\"#7$\"+*oRu*=F/" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 21 "pl1:=pointplot(data):" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 25 "Xbar:=sum(x[i],i=1..n)/n;" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%%XbarG#\"#8\"\"#" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 25 "Ybar:=sum(y[i],i=1..n)/n;" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%%YbarG$\"+#=Qc[$!\"*" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 32 "Sxx:=sum((x[i]-Xbar)^2.,i=1..n);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%$SxxG$\"$V\"\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 41 "Sxy:=sum((x[i]-Xbar)*(y[i]-Ybar),i=1..n);" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#>%$SxyG$\"+&>[GE%!\"(" }}}{EXCHG {PARA 0 "" 
0 "" {TEXT -1 34 "Regression coefficients ESTIMATES:" }{MPLTEXT 1 0 0 
"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "slope:=Sxy/Sxx;" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&slopeG$\"+CF,\")H!\"*" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "intercept:=Ybar-Xbar*slope;" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*interceptG$!+`W4*e\"!\")" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "pl2:=plot(slope*X+intercept,
X=0..13):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "display(pl1,pl
2);" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6&-%'POINTS
G6.7$$\"\"\"\"\"!$!+g@!37&!\"*7$$\"\"#F)$!+l?o\"3\"!\")7$$\"\"$F)$!*-I
I#QF27$$\"\"%F)$!+b9v7#*F,7$$\"\"&F)$!+q6)fR%F,7$$\"\"'F)$\"*xE**)QF27
$$\"\"(F)$!*#=REfF27$$\"\")F)$\"*gVOy(F27$$\"\"*F)$\"*g#f$)zF27$$\"#5F
)$\"+I^1'e\"F27$$\"#6F)$\"+IC7jEF27$$\"#7F)$\"+*oRu*=F2-%'CURVESG6$7S7
$$F)F)$!31+++`W4*e\"!#;7$$\"3ammmT+jLG!#=$!3:Io!4eBY]\"Fgo7$$\"3oKLe*Q
c\"*H&F[p$!3'='=wEf7J9Fgo7$$\"37mm;H')*=2)F[p$!3;ghzF,Z[8Fgo7$$\"3ymmT
S?I'3\"!#<$!3Sv5aKkEl7Fgo7$$\"39L$ekk(3k8F[q$!3a\\c#**=eC=\"Fgo7$$\"3T
m;Hi/j@;F[q$!3/a#G)[Vo06Fgo7$$\"3q**\\iI6I))=F[q$!36HjG$[*=E5Fgo7$$\"3
Sm;H<B4k@F[q$!3d(*GC'zd(R%*F[q7$$\"3'***\\7Q!***QCF[q$!3n8c_jtD?')F[q7
$$\"3<LL$3Ru<s#F[q$!3+&[o!R/IxxF[q7$$\"3gmmTvI%3(HF[q$!3rCc<@N#[.(F[q7
$$\"3?++]AaB^KF[q$!31%)z!oOq*)>'F[q7$$\"3!)****\\(3zF`$F[q$!3y!R\"3>^o
f`F[q7$$\"3-++]x&)4/QF[q$!3+*>ArEy3b%F[q7$$\"31m;HnE[]SF[q$!3'[3i/;/k
\"QF[q7$$\"34LL$3=dMM%F[q$!3Hkmy2M/VHF[q7$$\"3CLLLB]k\"f%F[q$!3uc?N\"H
#>.AF[q7$$\"3=**\\i&[Y.)[F[q$!3<$>B)e&pDM\"F[q7$$\"3mKLL)>'*e8&F[q$!3
\"o2^i8Ex!eF[p7$$\"3h**\\iNZF;aF[q$\"3=-'ydt$R]DF[p7$$\"3C+](oShKo&F[q
$\"3!o^7x.I40\"F[q7$$\"3+LLe*)R$='fF[q$\"3C,OK^%e8)=F[q7$$\"3%HLe9e]w@
'F[q$\"3A*G8n'4&Rk#F[q7$$\"35mmTNLe$\\'F[q$\"3qS9B<+^mMF[q7$$\"3Em;H<*
*>!y'F[q$\"3[0-r%p<4K%F[q7$$\"3m**\\P%\\+(HqF[q$\"37m4k*3#ok]F[q7$$\"3
?mm\"H&z;*H(F[q$\"3y9wD7!oz'eF[q7$$\"3K*****\\?avd(F[q$\"3%=q/>(4%yp'F
[q7$$\"3K***\\7%3!*\\yF[q$\"3OaX!*f(4(4vF[q7$$\"3w)*\\i:-T8\")F[q$\"3'
[q4ybM_H)F[q7$$\"3S)**\\([C*fS)F[q$\"3ek;d<fUn\"*F[q7$$\"3UKLL)f!*)o')
F[q$\"3MOcfY'G6&**F[q7$$\"33++]([!f\\*)F[q$\"3['o#ye)*yy5Fgo7$$\"32m;H
2j%R?*F[q$\"3AF\\I_Oha6Fgo7$$\"3Y++]-W-#[*F[q$\"3:+JJ'34vB\"Fgo7$$\"3(
4Le*=UnV(*F[q$\"3&\\bA&Hs]:8Fgo7$$\"3.+D\"oO<<+\"Fgo$\"3+Q)>LwPqR\"Fgo
7$$\"3:LL3PpXG5Fgo$\"3u$[JDw[nZ\"Fgo7$$\"3')*\\i!*y]k0\"Fgo$\"3Q_^Z\"z
)>g:Fgo7$$\"3ummm&>7M3\"Fgo$\"3`6\">w3r0k\"Fgo7$$\"3`m;/GT)46\"Fgo$\"3
B`U&)oLwA<Fgo7$$\"3HLe*3vF$Q6Fgo$\"3k\"y-l0vU!=Fgo7$$\"3/++]+PXj6Fgo$
\"3M&Qv>$e<z=Fgo7$$\"3AL$3U(3D#>\"Fgo$\"3wk^@t0-l>Fgo7$$\"3_mmm4u+=7Fg
o$\"3j8E9L6!=/#Fgo7$$\"3%**\\i&[#paC\"Fgo$\"3AJbJC_mB@Fgo7$$\"3++vVKPv
r7Fgo$\"3Rz1>0'>??#Fgo7$$\"#8F)$\"3E++?)3AiG#Fgo-%'COLOURG6&%$RGBG$FX!
\"\"FdoFdo-%+AXESLABELSG6$Q\"X6\"Q!Fd_l-%%VIEWG6$;FdoFf^l%(DEFAULTG" 
1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Cur
ve 2" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "res:=evalm(y-(slop
e*x+intercept));" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$resG-%'vectorG6
#7.$\"+Y'H\"*y(!\"*$!)d,z))!\")$\"*Mw[7$F.$!*$y&eC&F.$!*E+,T$F.$\"*'\\
z%*=F.$!+OOD!4\"F.$!)m8N<F.$!*RxX&HF.$\"*fo9%>F.$\"*()G5t*F.$!)F6o!*F.
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "SSe:=sum(res[i]^2,i=1..
n);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$SSeG$\"+;Gr3M!\"(" }}}
{EXCHG {PARA 0 "" 0 "" {TEXT -1 15 "Sigma ESTIMATE:" }{MPLTEXT 1 0 0 "
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "sigmaHat:=sqrt(SSe/(n-2
));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%)sigmaHatG$\"+$H=%Qe!\"*" }}}
{EXCHG {PARA 0 "" 0 "" {TEXT -1 48 "95% CI for  sigma, ('true') slope \+
and intercept:" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 94 "sqrt(SSe/statevalf[icdf,chisquare[n-2]](.975)),sqrt(S
Se/statevalf[icdf,chisquare[n-2]](.025));" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6$$\"+sBSzS!\"*$\"+8OgC5!\")" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 42 "tcr:=statevalf[icdf,studentst[n-2]](.975);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$tcrG$\"+_)Q\"GA!\"*" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "evalm(slope+[-1,1]*tcr*sigmaHat/sqr
t(Sxx));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'vectorG6#7$$\"+j;;$*=!
\"*$\"+&yj)oSF)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 58 "evalm(in
tercept+[-1,1]*tcr*sigmaHat*sqrt(1/n+Xbar^2/Sxx));" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#-%'vectorG6#7$$!+b6t*Q#!\")$!+5vd%)y!\"*" }}}{EXCHG 
{PARA 0 "" 0 "" {TEXT -1 12 "CORRELATION:" }{MPLTEXT 1 0 0 "" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "n:=32:" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 32 "X:=[random[normald[200,30]](n)];" }}{PARA 12 "
" 1 "" {XPPMATH 20 "6#>%\"XG7B$\"+uB@\\?!\"($\"+@u!f>#F($\"+8PoP=F($\"
+_x]SEF($\"+lrKb?F($\"+r6,:=F($\"+>2Rl=F($\"+;s9ZAF($\"+4*Rc2#F($\"+O!
\\v0#F($\"+k^R[AF($\"+g)>tZ\"F($\"+EJ#pL#F($\"+?9$=&>F($\"+!H@K`\"F($
\"+^Uyl<F($\"+<(*RW=F($\"+50_A>F($\"+&**[\"R:F($\"+5=1E@F($\"+4%)=O=F(
$\"+7)pH%=F($\"+aB#o,#F($\"+eKZcCF($\"+]SEj9F($\"+unPx:F($\"+IY5n9F($
\"+KM-;<F($\"+IG]o>F($\"+C)[*)f#F($\"+>fjA;F($\"+Hl2$)>F(" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 41 "Y:=evalm(X/2-50+10*[random[normald]
(n)]);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%\"YG-%'vectorG6#7B$\"*(fcf
j!\"($\"*dq'[jF+$\"+*H#)o:%!\")$\"*[U:#))F+$\"*HE/-(F+$\"+'Ref&HF0$\"+
LWANQF0$\"*AQ4x&F+$\"*>(fJeF+$\"+@KO]YF0$\"*#f$\\H&F+$\"+q#[R)RF0$\"*e
(ePrF+$\"+y?FKKF0$\"+.>0=IF0$\"+C<YiWF0$\"+&4B[*QF0$\"+e/>lOF0$\"+BU(p
O#F0$\"*eK;G&F+$\"+_rB7TF0$\"+\"3yLz$F0$\"+'zkp$\\F0$\"*oy>a)F+$\"+f!z
xD#F0$\"+S'oY@%F0$\"+u*>=/\"F0$\"*@n=+&F+$\"*9aVV&F+$\"*zq6M*F+$\"+DB:
(=#F0$\"+]&=R2$F0" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 66 "This makes t
he correlation coefficient equal to 3/sqrt(13) = 0.832" }{MPLTEXT 1 0 
0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "data:=[seq([X[i],Y[i
]],i=1..n)];" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%%dataG7B7$$\"+uB@\\?
!\"($\"*(fcfjF)7$$\"+@u!f>#F)$\"*dq'[jF)7$$\"+8PoP=F)$\"+*H#)o:%!\")7$
$\"+_x]SEF)$\"*[U:#))F)7$$\"+lrKb?F)$\"*HE/-(F)7$$\"+r6,:=F)$\"+'Ref&H
F67$$\"+>2Rl=F)$\"+LWANQF67$$\"+;s9ZAF)$\"*AQ4x&F)7$$\"+4*Rc2#F)$\"*>(
fJeF)7$$\"+O!\\v0#F)$\"+@KO]YF67$$\"+k^R[AF)$\"*#f$\\H&F)7$$\"+g)>tZ\"
F)$\"+q#[R)RF67$$\"+EJ#pL#F)$\"*e(ePrF)7$$\"+?9$=&>F)$\"+y?FKKF67$$\"+
!H@K`\"F)$\"+.>0=IF67$$\"+^Uyl<F)$\"+C<YiWF67$$\"+<(*RW=F)$\"+&4B[*QF6
7$$\"+50_A>F)$\"+e/>lOF67$$\"+&**[\"R:F)$\"+BU(pO#F67$$\"+5=1E@F)$\"*e
K;G&F)7$$\"+4%)=O=F)$\"+_rB7TF67$$\"+7)pH%=F)$\"+\"3yLz$F67$$\"+aB#o,#
F)$\"+'zkp$\\F67$$\"+eKZcCF)$\"*oy>a)F)7$$\"+]SEj9F)$\"+f!zxD#F67$$\"+
unPx:F)$\"+S'oY@%F67$$\"+IY5n9F)$\"+u*>=/\"F67$$\"+KM-;<F)$\"*@n=+&F)7
$$\"+IG]o>F)$\"*9aVV&F)7$$\"+C)[*)f#F)$\"*zq6M*F)7$$\"+>fjA;F)$\"+DB:(
=#F67$$\"+Hl2$)>F)$\"+]&=R2$F6" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 21 "pl1:=pointplot(data):" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 103 
"We can still fit the 'best' (least squares) straight line, but cannot
 construct the corresponding CIs:." }{MPLTEXT 1 0 0 "" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "Xbar:=sum(X[i],i=1..n)/n;" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#>%%XbarG$\"+X!*pT>!\"(" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 25 "Ybar:=sum(Y[i],i=1..n)/n;" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#>%%YbarG$\"+7I#3v%!\")" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 32 "Sxx:=sum((X[i]-Xbar)^2.,i=1..n);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%$SxxG$\"+j&*)*pI!\"&" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 41 "Sxy:=sum((X[i]-Xbar)*(Y[i]-Ybar),i=1..n);" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#>%$SxyG$\"+mu&fo\"!\"&" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 31 "Syy:=sum((Y[i]-Ybar)^2,i=1..n);" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#>%$SyyG$\"+#3,K?\"!\"&" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 15 "slope:=Sxy/Sxx;" }}{PARA 11 "" 1 "" {XPPMATH 20 
"6#>%&slopeG$\"++ot\"\\&!#5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
27 "intercept:=Ybar-Xbar*slope;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*
interceptG$!+)3xC\"f!\")" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 42 
"pl2:=plot(slope*xe+intercept,xe=130..270):" }}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 17 "display(pl1,pl2);" }}{PARA 13 "" 1 "" {GLPLOT2D 
400 300 300 {PLOTDATA 2 "6&-%'POINTSG6B7$$\"+uB@\\?!\"($\"*(fcfjF)7$$
\"+@u!f>#F)$\"*dq'[jF)7$$\"+8PoP=F)$\"+*H#)o:%!\")7$$\"+_x]SEF)$\"*[U:
#))F)7$$\"+lrKb?F)$\"*HE/-(F)7$$\"+r6,:=F)$\"+'Ref&HF67$$\"+>2Rl=F)$\"
+LWANQF67$$\"+;s9ZAF)$\"*AQ4x&F)7$$\"+4*Rc2#F)$\"*>(fJeF)7$$\"+O!\\v0#
F)$\"+@KO]YF67$$\"+k^R[AF)$\"*#f$\\H&F)7$$\"+g)>tZ\"F)$\"+q#[R)RF67$$
\"+EJ#pL#F)$\"*e(ePrF)7$$\"+?9$=&>F)$\"+y?FKKF67$$\"+!H@K`\"F)$\"+.>0=
IF67$$\"+^Uyl<F)$\"+C<YiWF67$$\"+<(*RW=F)$\"+&4B[*QF67$$\"+50_A>F)$\"+
e/>lOF67$$\"+&**[\"R:F)$\"+BU(pO#F67$$\"+5=1E@F)$\"*eK;G&F)7$$\"+4%)=O
=F)$\"+_rB7TF67$$\"+7)pH%=F)$\"+\"3yLz$F67$$\"+aB#o,#F)$\"+'zkp$\\F67$
$\"+eKZcCF)$\"*oy>a)F)7$$\"+]SEj9F)$\"+f!zxD#F67$$\"+unPx:F)$\"+S'oY@%
F67$$\"+IY5n9F)$\"+u*>=/\"F67$$\"+KM-;<F)$\"*@n=+&F)7$$\"+IG]o>F)$\"*9
aVV&F)7$$\"+C)[*)f#F)$\"*zq6M*F)7$$\"+>fjA;F)$\"+DB:(=#F67$$\"+Hl2$)>F
)$\"+]&=R2$F6-%'CURVESG6$7S7$$\"$I\"\"\"!$\"3_+++_2yE7!#;7$$\"3PLL$e,;
0L\"!#:$\"3U*HT\"zmO%R\"F\\v7$$\"3im;/Qy1d8F`v$\"3Wg)p#)H#=S:F\\v7$$\"
3MLL3R\"GpQ\"F`v$\"3Vf%fB@nTq\"F\\v7$$\"3VLLetj)pT\"F`v$\"3;Sh!\\7R#p=
F\\v7$$\"3om;aY<!pW\"F`v$\"39VrYzk_L?F\\v7$$\"3KL$3n7PYZ\"F`v$\"33</R(
)=%e=#F\\v7$$\"31+]P1bN.:F`v$\"3z@A%)pcbVBF\\v7$$\"3EL$3d4cI`\"F`v$\"3
)fxl#*[jm]#F\\v7$$\"3))**\\([VhEc\"F`v$\"3#)RQ%)>#[#pEF\\v7$$\"3omm;lT
6$f\"F`v$\"3(>1Z%*f'[OGF\\v7$$\"3RLLeYp$*>;F`v$\"3oE8Bb-z$)HF\\v7$$\"3
')****\\XI8];F`v$\"3%HUoGG>'\\JF\\v7$$\"3#*****\\KJX!o\"F`v$\"37EbU?#H
hJ$F\\v7$$\"3)*****\\a@n4<F`v$\"3qNH!))R#fwMF\\v7$$\"3NL$3d#e?O<F`v$\"
3mRoTP$3Bi$F\\v7$$\"3omm;Fpvn<F`v$\"33.hP#oybz$F\\v7$$\"3gmmm[[[%z\"F`
v$\"3Jj^Y#RhB%RF\\v7$$\"3\")**\\PvddD=F`v$\"3k>a\")yX58TF\\v7$$\"3cmmm
8l4`=F`v$\"3GN\\0I7CkUF\\v7$$\"35+]PD6H$)=F`v$\"37-`L!4i+V%F\\v7$$\"3+
+]7ON/7>F`v$\"3g\"zRDwize%F\\v7$$\"3ummTgO/U>F`v$\"3a7p6\\br_ZF\\v7$$
\"3um;aRJfp>F`v$\"3T1&[u.5S!\\F\\v7$$\"3MLLeu*3$**>F`v$\"3)fb*G#e,s1&F
\\v7$$\"3EL$3dPv,.#F`v$\"3<!GJKt6nB&F\\v7$$\"3)***\\ioY/d?F`v$\"35<<$z
\"3F%Q&F\\v7$$\"3GLL3TU1'3#F`v$\"3r79#>nQOa&F\\v7$$\"3&)******)HWg6#F`
v$\"3p-&[#f7G3dF\\v7$$\"3w***\\n$RPX@F`v$\"3OX3@5>NpeF\\v7$$\"3!***\\P
p=vt@F`v$\"3F![:r/'>DgF\\v7$$\"3*)***\\_sg_?#F`v$\"3c8,X!RM#)>'F\\v7$$
\"3]mmmLGdLAF`v$\"3!=^F\"Qqr`jF\\v7$$\"3=++]_?!QE#F`v$\"3e#yH;&zs>lF\\
v7$$\"3EL$3x@%>\"H#F`v$\"3?lgL8&e,n'F\\v7$$\"3-++]*3T6K#F`v$\"3vV#*>^)
=Y$oF\\v7$$\"3cm;/i(=$\\BF`v$\"3SiYV7KO*)pF\\v7$$\"3')**\\()[DxyBF`v$
\"3AOm[dc6^rF\\v7$$\"3mmm;4!pvS#F`v$\"3x?,=Q#e#4tF\\v7$$\"3$)**\\PMirP
CF`v$\"3#HhuU')=[Z(F\\v7$$\"3GLLL&f^nY#F`v$\"3lv2bCMFMwF\\v7$$\"3KLLeX
WW'\\#F`v$\"33!flHuQtz(F\\v7$$\"3lm;/C9*e_#F`v$\"3?ES@)z`!fzF\\v7$$\"3
;+++R,&Hb#F`v$\"3f;9\"*QJl2\")F\\v7$$\"3cmm\"*zC'Re#F`v$\"3s<wx_Z'zF)F
\\v7$$\"36LLL(G+<h#F`v$\"3yR!>0\\$HI%)F\\v7$$\"3$***\\PvXFTEF`v$\"35g7
\\'p2Ff)F\\v7$$\"3E+]iU4epEF`v$\"3%HS#>:)e\"[()F\\v7$$\"$q#Fiu$\"3U***
**>F7_\"*)F\\v-%'COLOURG6&%$RGBG$\"#5!\"\"$FiuFiuFeel-%+AXESLABELSG6$Q
#xe6\"Q!Fjel-%%VIEWG6$;FguFjdl%(DEFAULTG" 1 2 0 1 10 0 2 9 1 4 2 
1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" }}}}{EXCHG {PARA 
0 "" 0 "" {TEXT -1 68 "Point estimate AND CI for the ('true') correlat
ion coefficient  rho:" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 21 "r:=Sxy/sqrt(Sxx*Syy);" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#>%\"rG$\"+h2@s()!#5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
35 "Zcr:=statevalf[icdf,normald](.975);" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#>%$ZcrG$\"+&)R'*f>!\"*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 40 "evalm(arctanh(r)+[-1,1]*Zcr/sqrt(n-3.));" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#-%'vectorG6#7$$\"+]/D'***!#5$\"+&RPvs\"!\"*" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "tanh(%[1]),tanh(%[2]);" }}{PARA 11 
"" 1 "" {XPPMATH 20 "6$$\"+&RmVh(!#5$\"+QCk(Q*F%" }}}}{MARK "47" 0 }
{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }