nombres <- c("Bastian","Julián","Doutzen","Emiliano","Trevor","Elián","Thiago","Liam","Gianluca","Hiromi","Saúl","Ciro","Luciano","Mariano","Kendall","Brandon","Nicanor","Aitor","Matheo","Iker","JuanBautista","Alezandro","Federico","Ezequiel","Jerald","Kenay","Sacha","Deereck","Edric","Bruno","Bronx","Ian","Andry","Nícolas","Eliano","Aldo","Izan","Camilo","Bradley","Dylan","Noah","Alexi","Gael","Eithan","Lukas","Enzo","Alain","Yordani","Izan","Stefano")
edades <- c(19, 21, 25, 16, 29, 28, 29, 27, 25, 19, 29, 25, 28, 19, 25, 25, 26, 27, 25, 27, 24, 22, 21, 15, 23, 19, 15, 28, 15, 28, 20, 19, 17, 20, 30, 29, 25, 24, 27, 22, 27, 20, 20, 26, 18, 21, 21, 30, 16, 28)
estaturas <- c(1.71, 1.8, 1.52, 1.73, 1.84, 1.88, 1.97, 1.99, 1.8, 1.53, 1.64, 1.97, 1.85, 1.9, 1.99, 1.83, 1.58, 1.54, 1.87, 1.58, 1.73, 1.91, 1.85, 1.98, 1.95, 1.85, 1.97, 1.52, 1.64, 1.68, 1.51, 1.76, 1.58, 1.96, 1.98, 1.72, 1.69, 1.52, 1.65, 1.74, 1.69, 1.69, 1.53, 1.99, 1.83, 1.87, 1.88, 1.66, 1.94, 1.86)
datos <- data.frame(nombres, edades, estaturas)
datos
## nombres edades estaturas
## 1 Bastian 19 1.71
## 2 Julián 21 1.80
## 3 Doutzen 25 1.52
## 4 Emiliano 16 1.73
## 5 Trevor 29 1.84
## 6 Elián 28 1.88
## 7 Thiago 29 1.97
## 8 Liam 27 1.99
## 9 Gianluca 25 1.80
## 10 Hiromi 19 1.53
## 11 Saúl 29 1.64
## 12 Ciro 25 1.97
## 13 Luciano 28 1.85
## 14 Mariano 19 1.90
## 15 Kendall 25 1.99
## 16 Brandon 25 1.83
## 17 Nicanor 26 1.58
## 18 Aitor 27 1.54
## 19 Matheo 25 1.87
## 20 Iker 27 1.58
## 21 JuanBautista 24 1.73
## 22 Alezandro 22 1.91
## 23 Federico 21 1.85
## 24 Ezequiel 15 1.98
## 25 Jerald 23 1.95
## 26 Kenay 19 1.85
## 27 Sacha 15 1.97
## 28 Deereck 28 1.52
## 29 Edric 15 1.64
## 30 Bruno 28 1.68
## 31 Bronx 20 1.51
## 32 Ian 19 1.76
## 33 Andry 17 1.58
## 34 Nícolas 20 1.96
## 35 Eliano 30 1.98
## 36 Aldo 29 1.72
## 37 Izan 25 1.69
## 38 Camilo 24 1.52
## 39 Bradley 27 1.65
## 40 Dylan 22 1.74
## 41 Noah 27 1.69
## 42 Alexi 20 1.69
## 43 Gael 20 1.53
## 44 Eithan 26 1.99
## 45 Lukas 18 1.83
## 46 Enzo 21 1.87
## 47 Alain 21 1.88
## 48 Yordani 30 1.66
## 49 Izan 16 1.94
## 50 Stefano 28 1.86
muestra1 <- sample(datos$edades, 10, replace = FALSE)
muestra2 <- sample(datos$edades, 10, replace = FALSE)
muestra3 <- sample(datos$edades, 10, replace = FALSE)
muestra4 <- sample(datos$edades, 10, replace = FALSE)
muestra5 <- sample(datos$edades, 10, replace = FALSE)
meanM1 <- mean(muestra1)
meanM2 <- mean(muestra2)
meanM3 <- mean(muestra3)
meanM4 <- mean(muestra4)
meanM5 <- mean(muestra5)
#Media de las 5 muestras
meanM1
## [1] 23.6
meanM2
## [1] 24.1
meanM3
## [1] 23.4
meanM4
## [1] 21.5
meanM5
## [1] 24.6
#Media de todos los datos
mean(datos$edades)
## [1] 23.28
Si observamos los datos que obtuve en cuanto a las medias de cada muestra y la media de la población total, podemos deducir que las medias de las muestras están alrededor de la cifra real, que es la media de todos los datos, pero ninguna es la cantidad exacta, esto quiere decir que podemos usar las muestras para hacer aproximaciones. Las muestras se pueden asemejar a las opiniones y puntos de vista de las personas, las cuales son verdades relativas y nunca serán la verdad absoluta, ya que todos miran a través de su filtro, la verdad siempre estará en las intersecciones