set.seed(123)
datos <- rnorm(30, mean = 10, sd = 2)

# Prueba de hipótesis de una cola (prueba t)
t.test(datos, mu = 9, alternative = "greater")

# Prueba de hipótesis de dos colas (prueba t)
t.test(datos, mu = 9)

# Prueba de hipótesis de una cola (prueba de Wilcoxon)
wilcox.test(datos, mu = 9, alternative = "greater")

# Prueba de hipótesis de dos colas (prueba de Wilcoxon)
wilcox.test(datos, mu = 9)