set.seed(1234)
pH= rnorm(n=36, mean=5.2, sd=0.25)
pH=round(pH,2)
pH
##  [1] 4.90 5.27 5.47 4.61 5.31 5.33 5.06 5.06 5.06 4.98 5.08 4.95 5.01 5.22 5.44
## [16] 5.17 5.07 4.97 4.99 5.80 5.23 5.08 5.09 5.31 5.03 4.84 5.34 4.94 5.20 4.97
## [31] 5.48 5.08 5.02 5.07 4.79 4.91
mean(pH)
## [1] 5.114722
hist(pH)

#Prueba T-Student (una muestra)

t.test(x= pH,alternative = "l",mu=5.5)
## 
##  One Sample t-test
## 
## data:  pH
## t = -10.284, df = 35, p-value = 2.027e-12
## alternative hypothesis: true mean is less than 5.5
## 95 percent confidence interval:
##      -Inf 5.178021
## sample estimates:
## mean of x 
##  5.114722

\[\text{¿Considera usted que lo hético se hereda?)}\] #Mis datos recogidos en campo proporcionan evidencia en contra de la hipotesis nula.