> shapiro.test(x)

     Shapiro-Wilk    normality test

data:     x

W = 0.973, p-value = 0.8999

#对x的分布作正态性检验，p大于0.05，符合正态分布

> shapiro.test(y)

     Shapiro-Wilk    normality test

data:     y

W = 0.9423, p-value = 0.4123

#对y的分布作正态性检验，p大于0.05，符合正态分布

     Pearson's    product-moment correlation

data:     x and y

t = -3.8539, df = 13, p-value = 0.001993

alternative hypothesis: true correlation    is not equal to 0

95 percent confidence interval:

-0.9042470 -0.3482487

sample estimates:

         cor

-0.7302404

#p值小于0.05，说明显著相关

#-0.7302404