---

title: “Taller 3” author: “Andres Polo Henao” date: “2024-02-15” output: html_document

# Datos de eficiencia de combustible
datos <- c(7.69, 4.97, 4.56, 6.49, 4.34, 6.24, 4.45)
k <- 1000
# Punto 1: (P2.5; P97.5)
bootstrap_means <- replicate(k, mean(sample(datos, replace=TRUE)))
conf_interval_method1 <- quantile(bootstrap_means, c(0.025, 0.975))
print(conf_interval_method1)

##     2.5%    97.5% 
## 4.732679 6.450107

# Punto 12: (2X¯−P97.5; 2X¯−P2.5)
bootstrap_double_means <- 2 * mean(datos) - quantile(bootstrap_means, c(0.975, 0.025))
print(bootstrap_double_means)

##    97.5%     2.5% 
## 4.618464 6.335893