#
#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.
# 
#-----

# part (a):
#
n = 27
SYY = 100
SXX = 625
SXY = 200
alpha = 0.01

r = SXY / sqrt( SXX * SYY )

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

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

# part (b):
#
n = 5
SYY = 16
SXX = 25
SXY = 10
alpha = 0.05

r = SXY / sqrt( SXX * SYY )

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

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