# Instala e carga el paquete necesario
install.packages("ggplot2")
## Installing package into '/cloud/lib/x86_64-pc-linux-gnu-library/4.3'
## (as 'lib' is unspecified)
library(ggplot2)
# Generación de datos simulados
set.seed(123)
datos_muestra <- rnorm(30, mean = 10, sd = 2)
# Pregunta Práctica 1: Realizar un histograma
hist(datos_muestra, main = "Histograma de Datos Simulados", xlab = "Valores", col = "lightblue", border = "black")
# Pregunta Práctica 2: Calcular la media y la desviación estándar
media_muestra <- mean(datos_muestra)
desviacion_estandar_muestra <- sd(datos_muestra)
media_muestra
## [1] 9.905792
desviacion_estandar_muestra
## [1] 1.962061
# Pregunta Práctica 3: Realizar una prueba t de una muestra
t_test_result <- t.test(datos_muestra, mu = 11)
t_test_result
##
## One Sample t-test
##
## data: datos_muestra
## t = -3.0546, df = 29, p-value = 0.004797
## alternative hypothesis: true mean is not equal to 11
## 95 percent confidence interval:
## 9.173147 10.638438
## sample estimates:
## mean of x
## 9.905792
Resume las conclusiones obtenidas a lo largo de las preguntas prácticas
Discute la importancia de la prueba de hipótesis para la media.