Informe_04
Jhon Alexander Rojas Tavera
2023-09-13
Estimacción boostrap
Cuando se extrae una muestra de una población que no es normal y se requiere estimar un intervalo de confianza se pueden utilizar los métodos de estimación bootstrap. Esta metodología supone que se puede reconstruir la población objeto de estudio mediante un muestreo con reemplazo de la muestra que se tiene. Existen varias versiones del método. Una presentación básica del método se describe a continuación:
El artículo de In-use Emissions from Heavy Duty Dissel Vehicles (J.Yanowitz, 2001) presenta las mediciones de eficiencia de combustible en millas/galón de una muestra de siete camiones. Los datos obtenidos son los siguientes: 7.69, 4.97, 4.56, 6.49, 4.34, 6.24 y 4.45. Se supone que es una muestra aleatoria de camiones y que se desea construir un intervalo de confianza del 95 % para la media de la eficiencia de combustible de esta población. No se tiene información de la distribución de los datos. El método bootstrap permite construir intervalos de confianza del 95 % - Para ilustrar el método suponga que coloca los valores de la muestra en una caja y extrae uno al azar. Este correspondería al primer valor de la muestra bootstrap X∗1 .
Después de anotado el valor se regresa X∗1 a la caja y se extrae el valor X∗2, regresandolo nuevamente. Este procedimiento se repite hasta completar una muestra de tamaño n, X∗1,X∗2,X∗2,X∗n, conformando la muestra bootstrap
Es necesario extraer un gran número de muestras (suponga k = 1000). Para cada una de las muestra bootstrap obtenidas se calcula la media X∗i¯, obteniéndose un valor para cada muestra. El intervalo de confianza queda conformado por los percentiles P2.5 y P97.5. Existen dos métodos para estimarlo:
Definición de la muestra original
muestra_original <- c(7.69, 4.97, 4.56, 6.49, 4.34, 6.24, 4.45)
muestra_original## [1] 7.69 4.97 4.56 6.49 4.34 6.24 4.45Definición del número de muestras bootstrap
k <- 1000
# Inicialización del vector para almacenar las medias de las muestras bootstrap
medias_bootstrap <- numeric(k)
medias_bootstrap## [1] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [38] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [75] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [112] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [149] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [186] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [223] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [260] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [297] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [334] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [371] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [408] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [445] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [482] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [519] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [556] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [593] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [630] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [667] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [704] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [741] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [778] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [815] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [852] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [889] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [926] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [963] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [1000] 0Muestreo Bootstrap
for (i in 1:k) {
# Muestreo aleatorio con reemplazo
muestra_bootstrap <- sample(muestra_original, replace = TRUE)
# Calcular la media de la muestra bootstrap
media_bootstrap <- mean(muestra_bootstrap)
# Almacenar la media en el vector
medias_bootstrap[i] <- media_bootstrap
}
media_bootstrap## [1] 5.844286 medias_bootstrap[i]## [1] 5.844286Calcular los percentiles para el Método 1
percentil_2_5 <- quantile(medias_bootstrap, 0.025)
percentil_97_5 <- quantile(medias_bootstrap, 0.975)Calcular los límites del intervalo para el Método 2
limite_inferior_metodo_2 <- 2 * mean(muestra_original) - percentil_97_5
limite_superior_metodo_2 <- 2 * mean(muestra_original) - percentil_2_5Imprimir los intervalos de confianza
cat("Intervalo de confianza Método 1: (", percentil_2_5, ",", percentil_97_5, ")\n")## Intervalo de confianza Método 1: ( 4.71975 , 6.454429 )cat("Intervalo de confianza Método 2: (", limite_inferior_metodo_2, ",", limite_superior_metodo_2, ")\n")## Intervalo de confianza Método 2: ( 4.614143 , 6.348821 )Comaparativa de resultados
if (mean(muestra_original) >= percentil_2_5 && mean(muestra_original) <= percentil_97_5) {
cat("La media está dentro del intervalo de confianza del Método 1.\n")
} else {
cat("La media está fuera del intervalo de confianza del Método 1.\n")
}## La media está dentro del intervalo de confianza del Método 1.if (mean(muestra_original) >= limite_inferior_metodo_2 && mean(muestra_original) <= limite_superior_metodo_2) {
cat("La media está dentro del intervalo de confianza del Método 2.\n")
} else {
cat("La media está fuera del intervalo de confianza del Método 2.\n")
}## La media está dentro del intervalo de confianza del Método 2.Visualización de datos
# Gráficos
par(mfrow = c(1, 2)) # Dividir la ventana de gráficos en 2 columnas
# Histograma de las medias bootstrap con colores
hist(medias_bootstrap, main = "Histograma de Medias Bootstrap", xlab = "Media Bootstrap", col = "blue", border = "black")
# Boxplot de las medias bootstrap con colores
boxplot(medias_bootstrap, main = "Boxplot de Medias Bootstrap", ylab = "Media Bootstrap", col = "green", border = "black")
Conclusión
En relación a lo solicitado en el ejercicio, y segun estos resultados no encuentro una diferencia evidente que me haga pensar si los resultados son confiables o no según el metodo, pues en ambos métodos de estimación de intervalos de confianza (Bootstrap Percentil y Bootstrap BCA) proporcionan resultados parecidos y congruentes. Dado que, ambos intervalos incluyen la media de la muestra original y se superponen, podemos confiar en que la media de eficiencia de combustible de la población de camiones se encuentra dentro de este rango con un 95% de confianza.
Repositorio Github
Si quieres consultar el codigó de este informe puedes validarlo en este enlace: