###################################################
### chunk number 1: 
###################################################
samara =read.table("http://www.stat.wisc.edu/~st571-1/data/samara.dat")
x = samara$V1; y = samara$V2


###################################################
### chunk number 2: 
###################################################
cor(x,y)
cor.test(x,y)
cor.test(x,y,method="spearman")
cor.test(x,y,method="kendall")