# R example for Section 11.8

data(mtcars) # a built-in data set in R

X <- mtcars$wt
print(X)

Y <- mtcars$mpg
print(Y)

cor.test(X, Y, conf.level=0.95)

# The result of the t-test of H0: rho=0 is given,
# and the 95% CI for rho is given.