t_test.R

# Comparación de dos medias, t de student
# Prueba paramétrica
set.seed(10)
x1 <- rnorm(100,10)
x2 <- rnorm(100,10.5)

test <- t.test(x1,x2)

print(test)

## 
##  Welch Two Sample t-test
## 
## data:  x1 and x2
## t = -4.0081, df = 197.827, p-value = 8.665e-05
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -0.8080508 -0.2751220
## sample estimates:
## mean of x mean of y 
##  9.863451 10.405037