cor_test.R

# Test de correlación
set.seed(10)
x<- rnorm(100,10,2)
y <- 4 * x + rnorm(100,sd=15)

print(cor.test(x,y))

## 
##  Pearson's product-moment correlation
## 
## data:  x and y
## t = 4.5591, df = 98, p-value = 1.485e-05
## alternative hypothesis: true correlation is not equal to 0
## 95 percent confidence interval:
##  0.2417584 0.5680568
## sample estimates:
##       cor 
## 0.4183126