#
#Epage 182
#
# Written by:
# -- 
# John L. Weatherwax                2009-04-21
# 
# email: wax@alum.mit.edu
# 
# Please send comments and especially bug reports to the
# above email address.
# 
#-----

n = 29
SYY = 64
SXX = 100
SXY = 40
alpha = 0.1

r = SXY / sqrt( SXX * SYY )

T = r * sqrt( (n-2)/(1-r*r) )

t = qt( 1 - 0.5*alpha, n-2 )