t_test_media.R

# Comparación una media con un valor teórico, t de student
# Prueba paramétrica
set.seed(10)
x <- rnorm(100,10)
Media <- 10

test <- t.test(x, mu=Media)

print(test)

## 
##  One Sample t-test
## 
## data:  x
## t = -1.4507, df = 99, p-value = 0.15
## alternative hypothesis: true mean is not equal to 10
## 95 percent confidence interval:
##   9.676689 10.050213
## sample estimates:
## mean of x 
##  9.863451