tarea 3
Nicolás E. Galeano Sánchez
22/9/2020
##Ejercico 3 partiendo del ejemplo de covid-19 del profe con 60/1000 enfermos.
Partimos de lo que hizo el profe en clase para hilar las asignaciones que nos corresponden.
calc_enfermos=function(n){
empleados=sample(c(rep("+",60),rep("-",940)))
#% real de enfermos
real=60/1000*100
real
muestra=sample(empleados,size = n)
enfermos_muestra=sum(muestra=="+")
return(enfermos_muestra)
}
calc_enfermos(n=100)## [1] 1Para repetir la simulacion 5000 veces creamos el siguiente codigo
contador=rep(NA,5000)
for(i in 1:5000){
contador[i]=calc_enfermos(n=100)
}
contador## [1] 4 8 7 6 4 5 5 3 5 5 6 5 11 7 6 6 2 3 10 16 2 5 6 4
## [25] 8 8 8 7 1 8 7 6 5 9 3 2 2 5 8 9 7 6 3 4 5 8 10 4
## [49] 3 7 9 2 5 6 7 9 4 7 7 6 8 5 7 7 2 7 3 4 7 5 9 6
## [73] 5 6 8 5 8 4 5 7 7 8 3 6 4 1 1 8 8 7 9 8 4 6 3 4
## [97] 6 6 8 3 7 6 5 6 7 4 5 8 9 7 7 5 5 7 4 5 3 4 6 5
## [121] 5 3 8 4 8 7 6 5 3 6 4 8 11 8 3 6 9 5 5 3 2 10 6 6
## [145] 5 4 5 5 4 6 8 4 8 5 7 4 5 4 6 7 3 7 5 7 2 10 8 5
## [169] 5 6 8 8 6 8 4 5 8 7 9 5 5 4 5 2 11 9 6 7 6 11 11 5
## [193] 4 11 4 6 6 6 4 6 6 7 5 5 6 5 7 10 9 4 7 5 6 10 4 5
## [217] 7 6 5 2 4 8 4 3 7 5 8 7 7 7 5 6 2 7 9 4 4 7 4 7
## [241] 3 7 7 8 3 5 5 10 5 8 4 1 4 7 4 4 4 7 7 11 7 3 4 4
## [265] 2 6 5 2 3 2 5 6 5 8 5 9 4 6 4 8 8 5 7 8 5 7 5 6
## [289] 4 7 7 6 6 6 6 6 9 5 8 5 5 8 9 4 4 4 5 11 6 8 8 6
## [313] 4 4 5 6 6 4 3 8 6 9 7 7 9 4 4 7 7 5 5 11 7 8 2 9
## [337] 7 5 10 3 10 4 4 7 5 3 7 5 6 8 4 7 4 8 8 5 3 6 6 5
## [361] 2 9 4 2 4 7 2 6 6 8 5 9 7 7 6 10 5 10 7 6 4 2 3 8
## [385] 8 6 6 5 9 5 5 7 4 5 8 5 8 3 7 6 7 3 6 8 4 10 7 10
## [409] 6 6 6 4 5 10 7 7 5 7 4 9 8 4 7 6 8 3 12 3 7 7 5 6
## [433] 5 4 5 6 4 5 8 6 7 10 3 9 5 7 8 7 3 8 5 6 10 6 4 3
## [457] 9 6 10 4 6 5 6 5 8 7 6 5 7 8 7 4 5 6 3 5 6 4 10 5
## [481] 10 4 3 7 11 5 9 9 8 11 7 8 5 3 7 3 5 7 9 6 4 8 8 8
## [505] 1 1 7 4 7 7 9 4 4 5 7 8 6 5 8 6 6 8 9 7 2 7 9 3
## [529] 3 6 6 9 9 2 6 5 11 6 5 4 7 5 6 11 7 4 3 3 5 1 8 6
## [553] 6 6 8 4 4 6 4 10 7 5 4 5 6 3 8 4 3 7 4 5 8 7 6 6
## [577] 6 6 3 4 4 2 4 7 3 12 2 8 2 5 4 9 6 7 4 8 4 4 7 10
## [601] 5 8 9 3 4 9 7 7 6 4 7 4 8 6 3 5 2 2 4 6 6 4 8 7
## [625] 3 4 3 8 4 9 7 3 5 6 8 7 5 9 4 3 3 4 6 6 6 3 8 6
## [649] 0 8 2 5 4 8 5 4 7 4 6 9 7 5 4 9 4 5 7 4 4 7 6 4
## [673] 4 3 6 6 5 6 5 6 5 4 8 4 6 4 5 5 7 6 4 5 12 5 6 9
## [697] 9 5 5 5 5 7 4 8 10 4 10 2 4 8 6 4 6 8 8 5 3 5 6 8
## [721] 5 5 7 9 10 8 7 8 6 4 3 7 7 7 8 5 4 6 5 7 3 11 7 5
## [745] 2 6 4 4 4 7 6 3 7 3 7 4 5 7 3 11 7 3 6 7 6 6 6 5
## [769] 6 6 8 7 5 9 9 3 5 5 5 11 7 6 5 7 5 7 5 6 7 4 5 5
## [793] 5 5 8 5 4 9 4 8 6 12 4 10 2 3 5 5 3 4 4 7 3 5 9 4
## [817] 7 6 7 5 4 6 9 4 6 5 3 6 7 6 6 3 6 3 4 5 4 6 5 6
## [841] 7 11 7 9 9 6 5 5 6 2 5 2 3 3 6 11 7 5 7 6 8 5 3 6
## [865] 8 6 5 5 6 11 5 5 7 7 4 3 4 5 6 0 4 7 3 10 8 9 4 7
## [889] 8 5 5 8 8 6 10 5 2 2 6 4 6 1 6 8 10 4 6 6 7 7 4 4
## [913] 7 6 7 2 5 9 6 3 7 10 2 6 4 8 5 4 8 4 6 7 6 2 5 8
## [937] 5 5 8 10 6 3 5 6 6 4 7 8 8 4 2 3 4 5 5 6 8 5 5 6
## [961] 3 7 6 5 5 9 5 10 6 5 5 8 8 6 4 6 5 6 5 5 7 8 5 10
## [985] 12 9 8 6 5 6 8 4 6 4 4 6 3 3 8 8 3 5 5 7 12 6 7 7
## [1009] 9 4 4 4 4 10 5 2 3 6 4 4 3 7 6 5 2 7 9 6 7 7 4 7
## [1033] 3 4 7 7 7 6 4 9 8 8 4 5 7 3 4 6 1 5 3 9 6 3 3 2
## [1057] 2 5 6 7 7 9 8 7 0 7 6 9 2 5 2 4 2 4 5 6 5 9 8 8
## [1081] 10 5 6 7 8 6 5 9 6 6 7 6 2 5 3 7 8 3 8 5 8 3 9 8
## [1105] 5 12 6 7 6 11 5 8 5 7 8 6 6 6 14 6 5 3 4 2 4 9 7 4
## [1129] 5 9 5 4 5 7 9 8 6 8 7 2 3 3 3 3 6 4 6 7 7 7 5 7
## [1153] 9 6 8 4 7 4 6 7 8 5 5 3 1 7 5 9 5 4 6 5 7 2 9 5
## [1177] 8 8 7 6 3 8 9 7 8 8 7 7 7 8 5 8 6 4 3 9 6 3 5 8
## [1201] 6 7 4 7 1 8 8 6 6 10 6 6 6 6 5 2 6 4 8 7 3 6 8 8
## [1225] 10 10 4 4 3 3 7 4 3 7 7 9 8 6 7 8 8 3 5 5 4 5 2 5
## [1249] 5 6 3 6 5 7 3 3 7 8 6 8 4 4 1 3 8 5 3 9 3 8 6 3
## [1273] 6 8 6 8 10 6 11 10 6 8 2 11 6 9 3 7 10 4 8 7 7 13 7 11
## [1297] 8 10 4 7 10 4 6 4 2 10 7 5 7 9 8 8 7 4 6 4 8 8 7 2
## [1321] 6 10 7 8 2 7 5 9 4 4 7 5 4 5 5 6 11 3 8 8 4 7 5 5
## [1345] 3 7 5 8 4 3 11 9 2 7 7 10 7 7 4 3 6 2 7 3 5 3 5 5
## [1369] 7 0 9 10 6 9 8 9 8 7 5 10 6 12 7 5 4 4 6 11 10 5 7 6
## [1393] 7 7 3 9 2 7 8 4 1 5 6 3 5 7 5 10 11 6 2 5 8 8 2 7
## [1417] 5 4 8 5 10 6 4 13 3 10 7 2 3 11 6 4 7 6 5 3 3 9 12 3
## [1441] 8 7 6 8 7 5 7 9 6 8 7 6 3 3 5 4 9 9 5 8 6 2 4 11
## [1465] 2 7 3 7 6 7 12 8 5 5 7 8 11 8 9 2 7 6 0 1 6 6 8 8
## [1489] 5 6 6 7 8 4 5 5 9 8 3 5 5 11 5 3 6 6 6 4 1 7 2 4
## [1513] 7 6 11 4 4 10 9 7 8 6 8 3 4 7 6 5 7 7 5 8 4 9 3 9
## [1537] 3 7 6 4 5 10 8 5 4 5 4 5 5 5 7 5 10 6 6 3 6 2 13 4
## [1561] 5 8 6 6 4 7 4 4 6 6 6 5 5 6 10 8 5 5 9 4 7 3 8 6
## [1585] 8 6 5 4 5 8 7 10 5 1 6 6 5 6 4 3 6 8 7 8 5 6 3 6
## [1609] 7 9 10 3 6 3 5 8 11 6 8 4 7 6 3 9 9 6 7 5 5 6 6 5
## [1633] 7 5 5 7 6 9 3 3 4 7 7 6 5 10 5 6 5 5 7 5 6 1 6 8
## [1657] 5 3 7 10 6 4 5 4 5 5 8 4 3 5 3 9 6 8 8 5 4 7 5 3
## [1681] 6 6 3 7 5 5 3 8 9 7 8 2 5 7 9 6 3 7 6 4 6 10 3 11
## [1705] 4 3 6 6 7 6 5 3 4 5 5 8 8 7 1 5 6 3 4 7 4 5 7 6
## [1729] 1 7 9 6 9 3 2 7 6 7 5 9 7 6 7 8 6 5 6 7 10 12 8 4
## [1753] 5 9 10 5 8 7 9 6 6 5 6 9 10 4 3 6 5 6 7 2 8 10 5 6
## [1777] 7 6 5 7 6 5 4 4 6 1 6 10 8 5 4 5 5 6 7 5 7 6 2 5
## [1801] 7 6 5 9 6 3 5 6 3 8 8 6 5 4 4 4 2 4 6 5 5 5 4 6
## [1825] 8 6 8 2 4 7 3 4 4 5 5 3 7 8 4 3 9 7 5 5 9 7 8 8
## [1849] 5 9 5 4 5 7 5 8 3 6 4 5 4 5 9 6 7 4 5 3 9 10 7 6
## [1873] 3 5 10 7 9 9 4 2 4 3 12 6 2 6 9 5 4 10 5 5 4 11 8 9
## [1897] 5 6 2 10 7 5 10 6 6 5 6 2 6 6 6 3 6 7 7 8 6 7 5 5
## [1921] 11 5 5 8 6 6 9 9 6 5 3 3 6 6 9 7 5 6 5 5 5 2 7 8
## [1945] 13 5 8 5 6 5 8 4 3 5 4 6 7 6 8 4 6 4 4 8 4 9 4 4
## [1969] 8 7 6 7 9 6 7 2 3 11 7 4 7 5 7 3 8 7 5 6 7 5 8 11
## [1993] 4 6 6 5 6 4 3 6 4 9 6 10 8 7 6 5 8 8 7 7 6 6 4 7
## [2017] 8 5 3 6 5 5 9 5 6 3 4 6 7 8 8 9 7 6 10 4 8 7 6 8
## [2041] 9 4 3 3 11 6 4 6 8 4 10 9 8 7 3 4 4 10 6 8 9 9 7 7
## [2065] 3 5 6 2 5 4 9 8 3 6 4 10 2 4 8 6 8 9 8 3 8 6 5 3
## [2089] 8 8 4 9 8 7 10 4 9 8 5 6 5 6 5 5 7 8 4 5 8 3 8 7
## [2113] 4 6 4 5 4 6 9 5 5 3 4 6 3 9 11 4 5 3 4 6 12 6 2 2
## [2137] 4 4 3 3 6 6 4 6 4 7 5 10 11 4 5 9 9 2 6 4 5 6 4 3
## [2161] 5 7 5 7 2 4 6 7 4 9 4 9 10 5 10 6 6 10 3 8 6 4 7 4
## [2185] 7 4 6 2 7 6 8 9 5 10 8 7 5 6 6 8 6 10 4 9 4 6 6 6
## [2209] 4 8 5 8 9 7 5 3 4 4 6 7 6 9 9 1 5 5 6 3 12 5 9 2
## [2233] 3 4 9 8 7 7 6 6 7 6 7 7 4 6 5 6 8 8 7 6 4 5 3 4
## [2257] 8 4 10 7 6 7 5 6 6 6 6 7 7 8 3 6 7 4 9 7 6 5 5 8
## [2281] 5 7 7 9 8 10 7 6 5 7 4 5 4 4 7 7 10 4 8 5 4 4 4 10
## [2305] 5 6 8 7 5 9 9 4 6 6 10 4 7 3 6 4 8 5 5 5 2 4 3 6
## [2329] 7 4 5 4 8 5 5 8 7 5 2 5 5 7 6 6 4 7 6 4 6 6 5 5
## [2353] 4 6 4 5 7 5 8 9 6 8 8 7 9 6 6 3 10 6 6 7 2 7 6 4
## [2377] 7 3 8 6 4 7 6 9 6 5 4 3 5 7 3 7 6 11 6 5 9 4 2 9
## [2401] 10 12 7 5 7 6 6 6 2 7 7 5 4 9 9 4 3 7 8 5 6 5 6 5
## [2425] 3 5 5 5 5 6 4 4 4 6 5 8 3 3 6 5 4 5 6 10 6 7 5 3
## [2449] 3 2 7 6 8 6 4 7 6 7 10 6 8 4 2 8 9 11 5 9 5 12 4 8
## [2473] 3 4 6 6 6 7 5 5 4 7 8 6 8 4 8 5 5 4 3 6 6 9 8 8
## [2497] 3 5 9 3 4 6 4 7 2 8 7 5 9 6 4 6 6 5 6 5 4 5 4 6
## [2521] 5 6 9 6 4 8 4 8 5 5 5 5 5 7 12 5 3 11 4 5 6 8 7 6
## [2545] 10 3 5 10 4 5 2 8 4 8 5 9 3 3 10 7 5 6 2 8 7 3 12 2
## [2569] 7 7 6 6 11 9 7 9 9 4 6 6 5 4 6 4 2 3 5 6 4 11 5 1
## [2593] 8 6 7 6 5 5 9 4 8 7 4 7 9 3 10 5 6 4 5 4 4 3 2 5
## [2617] 9 4 5 9 8 6 8 5 6 4 4 4 11 1 7 6 6 7 6 5 12 5 6 4
## [2641] 6 6 4 3 6 6 4 3 1 6 7 9 5 6 5 5 7 5 6 6 7 6 7 2
## [2665] 7 5 6 11 3 7 12 4 3 7 6 7 3 3 4 4 8 4 6 8 6 8 6 5
## [2689] 3 6 6 4 10 7 8 10 4 5 7 2 6 6 8 9 6 2 2 4 9 8 6 6
## [2713] 6 6 7 8 5 10 4 7 8 3 6 12 3 7 3 4 7 4 8 3 5 3 7 8
## [2737] 5 6 8 3 5 6 8 4 2 9 10 8 7 5 2 8 7 3 3 5 6 5 8 10
## [2761] 6 4 1 6 5 3 5 3 7 9 12 9 6 5 4 3 9 7 4 5 5 10 7 7
## [2785] 5 5 6 7 9 6 7 5 8 7 7 9 9 9 6 6 9 8 5 4 4 3 1 10
## [2809] 7 4 6 5 3 5 4 5 7 5 5 4 5 4 7 6 3 3 7 9 7 3 5 5
## [2833] 8 3 3 6 7 5 6 2 6 6 5 7 7 7 7 5 7 4 9 3 6 6 5 5
## [2857] 9 5 5 4 7 8 4 8 5 6 4 11 5 6 5 9 6 1 5 4 7 6 1 2
## [2881] 9 5 2 7 2 7 5 7 6 8 9 3 5 4 3 7 5 9 5 6 9 7 5 7
## [2905] 4 6 8 5 7 4 9 8 4 2 4 5 5 2 6 4 8 9 3 6 4 6 7 9
## [2929] 8 4 3 8 6 4 4 6 7 6 7 5 5 2 4 7 8 6 6 6 6 2 7 7
## [2953] 8 4 4 7 6 10 4 3 10 8 7 6 1 4 9 6 6 6 6 4 4 1 9 2
## [2977] 7 5 5 7 7 8 3 6 9 9 7 10 2 9 4 9 6 6 10 5 8 7 3 7
## [3001] 4 10 9 7 8 5 6 6 10 5 8 3 7 5 6 2 7 4 9 7 7 7 8 10
## [3025] 3 7 8 5 9 6 8 11 4 9 8 6 7 7 8 5 3 9 8 5 10 3 6 13
## [3049] 4 3 6 4 6 4 5 9 5 4 8 4 7 5 5 7 9 8 7 8 4 5 9 8
## [3073] 9 2 5 5 6 8 2 4 9 6 3 7 5 4 6 7 5 9 10 7 2 6 6 6
## [3097] 6 7 6 5 4 7 7 5 8 4 8 5 2 7 6 2 6 4 8 7 8 6 8 9
## [3121] 4 2 9 11 7 5 6 8 4 13 8 5 4 4 5 4 6 2 8 10 8 8 6 4
## [3145] 8 7 6 1 8 3 10 8 6 7 6 6 2 4 6 3 7 2 5 5 2 7 5 5
## [3169] 1 4 7 5 3 3 2 5 8 5 5 3 7 9 5 4 5 4 5 6 6 7 8 8
## [3193] 3 9 5 7 3 8 5 7 5 9 6 4 5 8 3 5 5 2 7 9 4 11 4 12
## [3217] 2 4 6 5 9 7 3 6 4 8 2 7 7 4 10 6 3 7 2 5 3 7 5 7
## [3241] 0 11 6 6 4 4 6 2 7 5 6 3 7 8 3 3 8 9 6 10 6 7 5 6
## [3265] 4 4 10 5 7 4 9 7 7 3 4 7 7 5 7 2 4 8 5 5 8 8 8 6
## [3289] 1 4 7 10 8 1 6 5 11 7 10 9 11 7 7 9 7 8 6 6 3 9 5 3
## [3313] 4 9 6 5 3 1 10 8 5 11 11 5 3 7 8 11 2 6 10 8 8 8 4 7
## [3337] 5 4 6 4 5 3 6 4 3 6 2 5 5 10 10 6 7 5 8 3 5 2 8 5
## [3361] 11 13 4 5 9 4 5 6 4 5 6 7 6 6 6 2 4 10 8 3 5 5 4 10
## [3385] 5 8 4 4 5 2 5 7 5 5 7 7 6 10 7 7 5 5 5 7 9 8 6 6
## [3409] 4 7 10 7 7 5 4 7 4 3 3 5 10 6 1 12 3 8 5 8 8 3 3 4
## [3433] 7 4 6 9 8 12 7 3 7 5 10 3 4 8 8 2 4 9 5 7 5 7 7 9
## [3457] 5 7 3 2 6 4 9 5 4 3 6 4 6 2 5 7 4 4 7 3 11 6 6 5
## [3481] 6 6 3 4 10 5 13 4 7 4 5 4 5 3 5 5 8 3 8 4 1 6 5 6
## [3505] 8 6 6 3 5 7 10 8 6 5 7 6 8 4 7 3 5 8 6 6 8 9 10 9
## [3529] 5 8 6 3 7 8 8 7 5 8 4 4 6 6 5 1 9 7 7 6 7 5 5 6
## [3553] 7 4 3 7 6 6 9 2 8 5 6 2 5 5 6 5 6 5 7 9 7 2 2 8
## [3577] 5 4 3 6 8 4 10 6 6 6 7 4 4 6 7 6 5 9 9 5 4 2 2 7
## [3601] 8 7 8 8 10 4 6 6 5 9 4 5 5 7 4 10 4 5 5 5 3 7 6 7
## [3625] 5 5 4 7 6 7 10 7 11 5 12 8 7 5 13 4 4 5 5 3 5 0 3 6
## [3649] 7 4 8 4 5 10 8 6 8 5 4 7 6 5 4 6 4 4 4 5 6 8 8 11
## [3673] 5 8 5 3 5 7 6 7 8 7 6 2 3 5 6 8 5 1 7 7 5 7 4 8
## [3697] 9 5 3 5 4 5 4 2 1 3 7 9 7 5 8 4 5 4 7 5 5 10 3 8
## [3721] 6 6 6 3 9 9 6 6 11 4 8 5 8 6 5 3 6 4 8 7 7 7 7 4
## [3745] 6 10 5 8 4 8 4 5 11 7 5 5 5 8 7 6 8 4 7 4 7 6 3 6
## [3769] 5 11 3 7 8 5 6 4 9 4 9 9 9 9 7 8 10 6 3 5 6 8 5 4
## [3793] 13 6 6 5 4 7 7 5 7 7 8 7 4 8 7 7 4 6 8 5 4 11 7 4
## [3817] 3 5 11 6 7 11 4 13 5 4 6 4 4 3 5 10 5 4 7 6 8 8 8 9
## [3841] 5 4 5 6 7 4 5 8 6 3 6 7 9 6 4 6 7 3 6 9 11 6 6 4
## [3865] 3 7 9 6 9 6 6 7 8 3 5 4 1 4 5 3 6 2 6 6 6 5 7 7
## [3889] 4 7 1 8 6 8 7 6 6 4 7 8 5 5 7 5 5 6 9 5 4 6 7 5
## [3913] 4 6 3 6 7 6 8 8 6 6 12 4 5 7 6 2 6 8 7 7 6 7 9 6
## [3937] 8 3 5 4 5 3 5 8 4 6 7 6 5 6 6 7 8 6 4 5 5 4 4 5
## [3961] 7 5 5 6 4 3 4 4 9 10 8 7 7 8 6 1 10 7 5 7 7 8 8 9
## [3985] 7 5 7 8 6 9 8 7 4 2 8 4 3 12 9 5 8 6 6 4 8 7 9 10
## [4009] 10 5 9 9 4 4 3 1 5 5 7 6 8 7 8 7 6 11 5 3 4 10 6 5
## [4033] 8 4 2 8 6 5 7 4 3 5 5 10 6 9 7 5 8 4 8 9 8 7 5 3
## [4057] 8 4 6 9 3 9 6 5 9 5 7 6 4 5 5 3 8 3 6 7 6 5 9 5
## [4081] 5 8 5 3 8 5 9 7 4 2 8 7 7 7 6 6 7 6 3 7 10 6 6 7
## [4105] 8 5 10 5 6 7 14 5 7 6 5 7 3 3 5 11 4 7 10 3 8 5 5 6
## [4129] 5 9 6 3 7 7 9 5 6 9 3 4 8 4 7 8 3 9 7 6 7 3 7 4
## [4153] 3 6 5 8 6 11 6 8 4 5 4 7 7 10 4 9 1 9 1 6 4 6 3 7
## [4177] 6 11 3 9 4 3 2 7 7 3 5 8 6 11 7 3 4 7 8 6 6 10 7 7
## [4201] 5 5 10 8 5 10 7 4 6 12 6 5 5 5 4 4 3 6 6 5 3 9 4 3
## [4225] 7 6 7 5 7 9 12 4 6 8 3 10 3 9 2 1 6 5 3 6 2 6 4 7
## [4249] 3 8 6 8 10 3 8 3 6 6 2 4 7 6 5 5 5 5 10 4 11 2 6 4
## [4273] 5 7 6 9 3 5 6 7 8 5 6 6 5 4 11 9 7 4 9 7 8 8 4 4
## [4297] 6 3 4 8 4 4 7 4 7 7 8 7 4 4 7 5 6 9 5 8 6 8 7 2
## [4321] 6 6 11 10 5 4 5 7 4 9 6 7 7 6 7 7 5 5 3 6 9 7 7 5
## [4345] 1 7 5 4 8 7 5 3 10 6 7 4 3 5 6 1 4 9 10 5 6 7 12 3
## [4369] 7 5 7 4 7 2 7 6 9 2 6 6 6 4 3 9 7 6 7 11 4 5 5 8
## [4393] 2 5 5 8 5 3 5 6 6 4 5 3 3 3 4 6 9 4 9 6 7 6 6 8
## [4417] 10 8 6 4 5 0 2 4 5 9 6 7 6 9 9 6 2 5 8 7 6 2 8 8
## [4441] 6 6 3 5 4 8 3 4 5 8 7 8 6 6 5 7 9 7 5 6 6 7 6 6
## [4465] 11 8 4 3 4 4 9 10 6 4 6 11 10 9 7 4 5 4 5 9 8 8 2 8
## [4489] 3 3 7 6 4 5 10 4 4 3 3 6 3 6 6 11 2 7 7 10 7 6 5 4
## [4513] 9 7 5 9 7 9 9 5 9 5 6 9 4 7 8 6 5 5 4 8 6 6 5 6
## [4537] 2 3 6 4 6 5 11 10 2 10 7 2 5 8 1 7 8 11 7 7 7 4 8 5
## [4561] 3 7 5 7 5 5 6 1 6 8 9 4 5 4 7 8 9 10 4 5 6 3 9 8
## [4585] 9 6 8 3 9 5 8 7 8 7 4 6 6 5 6 5 7 4 7 8 8 7 4 5
## [4609] 5 6 7 4 9 4 5 7 6 7 2 7 7 8 5 4 5 2 5 2 8 4 4 4
## [4633] 8 9 4 7 7 8 6 4 7 6 3 9 6 8 5 7 5 8 4 5 9 7 8 6
## [4657] 5 6 6 8 7 11 9 3 7 4 1 10 3 10 8 8 8 7 8 10 6 7 10 7
## [4681] 7 9 6 3 4 5 5 5 6 5 12 7 8 5 5 10 6 7 5 4 3 8 9 6
## [4705] 3 7 5 9 9 5 4 8 6 9 5 7 8 3 4 7 8 8 6 14 7 7 6 4
## [4729] 5 4 11 5 7 5 12 6 10 7 5 6 6 6 4 6 5 7 5 5 6 9 7 4
## [4753] 7 5 2 6 5 9 7 8 6 1 4 4 5 6 3 4 10 3 5 6 2 6 9 7
## [4777] 5 5 6 7 3 5 10 7 4 7 3 5 5 5 9 5 4 4 4 8 2 7 5 8
## [4801] 7 8 4 9 3 7 6 3 10 6 6 4 2 3 11 7 5 8 4 3 3 4 4 3
## [4825] 6 8 5 3 2 7 6 7 3 5 6 7 7 8 11 4 7 8 7 8 4 5 2 4
## [4849] 6 7 4 5 3 5 5 4 6 2 3 6 3 3 5 3 5 12 5 10 2 11 6 7
## [4873] 8 8 6 5 2 11 8 4 4 11 2 5 5 4 7 7 7 7 6 8 8 7 6 5
## [4897] 3 10 8 2 6 6 7 7 8 4 6 6 2 8 4 5 3 6 5 9 5 6 7 6
## [4921] 5 6 5 4 5 9 5 5 5 10 9 7 5 6 3 7 6 10 12 7 6 10 7 6
## [4945] 3 11 8 8 9 7 3 4 9 5 4 7 10 4 4 7 4 2 7 6 4 6 7 4
## [4969] 8 6 4 6 9 6 10 3 6 0 9 10 2 6 9 4 6 4 9 9 1 6 6 5
## [4993] 6 5 6 6 8 11 8 4[1] 2 Show in New WindowClear OutputExpand/Collapse Output [1] 6 5 6 3 8 8 2 6 8 7 7 6 5 5 10 6 6 2 7 4 8 4 6 5 4 7 [27] 6 9 3 6 7 7 9 6 2 6 4 8 4 8 4 4 7 2 9 9 6 8 6 4 5 8 [53] 6 1 7 7 5 6 1 6 7 5 4 4 8 5 7 7 10 4 6 5 3 6 2 9 6 8 [79] 8 6 7 6 8 11 4 7 5 6 3 6 5 8 7 7 6 7 4 6 2 7 3 7 5 8 [105] 12 5 3 2 7 2 7 5 6 8 8 5 7 5 5 2 1 5 9 6 5 9 7 3 8 6 [131] 7 6 5 14 3 9 3 7 8 6 7 3 8 4 3 3 9 12 8 6 1 5 3 5 6 4 [157] 5 7 5 2 5 7 6 5 6 6 7 10 10 6 5 5 6 8 8 7 7 2 11 4 5 3 [183] 4 6 8 4 10 5 7 7 8 8 6 8 6 3 6 6 4 6 7 7 7 3 7 8 4 6 [209] 2 5 5 7 9 6 4 8 9 2 10 7 6 6 5 10 5 4 5 4 6 8 6 3 6 7 [235] 7 0 3 6 5 9 5 5 9 9 3 7 7 8 7 7 2 6 4 3 3 9 7 6 4 7 [261] 8 7 3 6 4 7 5 4 3 1 7 5 2 4 9 8 3 11 10 5 6 11 6 1 6 8 [287] 7 5 6 4 9 2 5 7 4 8 5 7 7 9 7 4 10 8 5 6 4 6 4 6 1 7 [313] 5 9 3 5 10 5 8 4 7 6 4 8 7 10 4 5 8 4 8 5 6 6 3 5 1 5 [339] 8 5 6 6 6 3 2 6 5 7 5 3 5 5 7 8 4 10 6 13 6 4 4 6 6 3 [365] 8 5 7 4 4 6 11 9 6 8 7 5 7 4 8 5 7 7 6 3 3 8 8 4 7 8 [391] 7 5 7 4 5 7 6 5 6 7 6 5 6 4 8 6 7 6 7 7 7 2 7 7 4 5 [417] 3 7 8 7 3 4 11 9 5 4 3 6 3 6 6 7 3 5 4 8 5 6 6 6 6 2 [443] 6 7 5 7 6 10 8 9 12 5 10 6 3 4 5 5 5 11 7 8 5 7 6 9 6 5 [469] 5 5 5 7 3 3 10 5 3 7 6 5 3 4 4 7 7 8 6 3 4 4 4 3 7 7 [495] 4 7 8 5 6 4 7 3 8 5 3 9 6 4 7 3 7 8 10 5 7 6 10 4 8 3 [521] 6 4 5 8 7 8 3 4 3 7 10 7 5 5 8 5 10 4 5 7 6 6 5 11 6 6 [547] 4 12 1 7 3 5 4 5 6 6 10 5 5 5 4 4 5 7 7 4 5 3 5 6 3 5 [573] 5 6 8 7 2 7 5 5 8 7 6 5 10 7 5 4 6 6 9 4 7 2 3 7 2 2 [599] 7 6 6 4 5 5 6 9 5 6 4 6 5 9 3 7 4 4 8 5 4 8 3 1 7 6 [625] 2 6 3 4 4 5 8 2 8 2 7 5 6 6 3 5 6 8 8 7 12 4 3 3 7 4 [651] 7 4 8 6 4 8 8 4 9 8 6 7 5 4 10 4 4 8 6 7 11 6 6 4 9 7 [677] 8 5 5 4 7 6 5 5 5 6 4 7 10 5 7 4 4 7 5 8 11 7 4 11 7 6 [703] 7 4 6 8 3 6 10 8 8 6 5 8 9 8 10 1 6 5 6 7 5 7 11 9 12 13 [729] 6 8 6 7 9 7 5 6 6 6 3 6 4 8 3 1 5 5 8 6 7 9 5 11 10 9 [755] 5 2 7 3 7 4 7 4 4 5 3 6 9 5 3 8 3 2 6 2 12 7 5 7 8 5 [781] 9 7 3 4 9 4 5 5 9 8 5 6 5 6 6 7 7 8 8 7 6 8 9 6 7 5 [807] 6 6 9 11 8 4 7 9 7 8 5 8 7
Aquí realizamos una tabla de frecuencias de los casos positivos por cada muestra de tamaño n=100.
res=table(contador)
res## contador
## 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 16
## 9 54 188 405 671 851 873 753 542 328 184 92 35 11 3 1y posteriormente lo dividimos en el total de empleados de la empresa para evaluar la participación porcentual del resultado.
resp=(res/5000)*100
resp## contador
## 0 1 2 3 4 5 6 7 8 9 10 11 12
## 0.18 1.08 3.76 8.10 13.42 17.02 17.46 15.06 10.84 6.56 3.68 1.84 0.70
## 13 14 16
## 0.22 0.06 0.02Ahora procedemos a realizar un histograma de la distribucion porcentual que representa la anterior tabla de frecuencias.
barplot(resp)
Logramos observar que el la observación que más se repite en lasimulación de 5000 repeticiones para nuestra muestra de n=100 es 6, lo cual es representativo con el numero total de
Ahora hagámoslo para 300/1000 enfermos.
calc_enfermos2=function(n){
empleados2=sample(c(rep("+",300),rep("-",940)))
#% real de enfermos
real2=60/1000*100
real2
muestra2=sample(empleados2,size = n)
enfermos_muestra2=sum(muestra2=="+")
return(enfermos_muestra2)
}
calc_enfermos2(n=100)## [1] 26Ahora repitamos la simulación 5000 veces.
contador2=rep(NA,5000)
for(i in 1:5000){
contador2[i]=calc_enfermos2(n=100)
}
contador2## [1] 28 22 26 36 19 26 26 26 23 26 21 17 29 32 29 20 27 32 25 25 22 22 31 24
## [25] 22 28 30 27 17 27 34 23 29 23 35 26 26 25 34 25 33 15 23 35 20 24 30 21
## [49] 26 26 32 29 22 18 24 21 26 25 25 25 24 23 19 25 21 20 20 23 20 25 21 19
## [73] 20 23 28 12 25 23 29 26 29 25 29 25 27 31 22 24 21 33 22 18 28 23 24 21
## [97] 21 26 25 22 23 22 20 22 21 21 23 27 25 29 24 26 21 28 24 25 20 30 23 24
## [121] 31 27 23 23 28 26 18 24 13 18 23 26 29 23 28 31 24 26 20 32 19 23 28 20
## [145] 28 23 28 16 29 24 23 21 21 24 22 21 27 23 35 19 16 23 25 24 26 36 25 27
## [169] 24 29 31 23 23 20 17 23 22 20 23 25 29 24 27 29 25 24 18 21 24 28 24 20
## [193] 36 17 14 24 29 27 19 28 22 27 19 24 21 25 25 30 28 24 24 23 23 22 22 27
## [217] 30 28 24 22 21 18 29 17 33 23 27 32 17 23 25 31 22 24 23 22 23 20 20 26
## [241] 21 32 25 28 35 13 27 22 27 25 15 26 22 24 24 20 27 25 20 27 24 25 24 25
## [265] 25 22 24 31 21 27 35 18 21 31 20 28 28 22 34 30 29 26 30 23 26 21 24 18
## [289] 26 25 26 27 24 24 21 20 29 29 26 26 29 30 22 18 19 19 32 20 22 27 26 25
## [313] 26 30 20 32 22 21 28 31 25 30 14 26 34 22 20 23 31 21 24 22 23 22 25 24
## [337] 25 31 24 30 26 23 17 33 22 22 25 28 19 25 28 26 24 23 26 28 25 19 21 30
## [361] 27 27 21 24 24 22 23 23 31 21 21 25 22 19 24 19 23 20 24 27 33 27 24 23
## [385] 27 27 20 23 33 21 29 31 23 18 27 21 20 26 21 26 24 25 24 25 29 24 29 27
## [409] 29 20 27 20 24 27 31 21 25 23 29 26 24 31 27 20 22 25 31 33 18 22 22 21
## [433] 23 22 18 24 19 24 29 23 19 18 20 26 21 21 25 24 25 26 28 28 24 21 20 24
## [457] 23 21 24 25 25 24 23 24 30 21 30 18 18 21 30 22 24 30 29 22 21 26 32 20
## [481] 26 24 20 33 23 25 24 23 31 24 26 27 30 23 36 23 30 23 30 28 29 24 22 27
## [505] 24 18 20 21 22 23 30 24 26 25 23 34 26 21 25 17 29 23 21 24 28 26 25 25
## [529] 20 18 18 20 22 27 22 22 25 25 24 28 25 20 22 27 27 33 29 22 23 30 23 26
## [553] 23 19 27 25 19 18 24 28 27 24 22 18 23 24 25 29 23 18 21 26 29 31 19 23
## [577] 17 28 22 26 24 25 31 30 21 20 36 18 28 26 24 23 30 29 23 25 17 31 24 33
## [601] 23 27 26 29 28 18 23 23 21 22 20 23 18 31 31 25 17 24 29 24 26 34 30 29
## [625] 19 23 26 29 21 28 18 26 25 19 26 24 20 25 22 20 29 27 19 17 23 23 26 20
## [649] 22 26 24 31 19 21 29 26 26 34 25 20 32 25 24 21 31 26 25 34 25 22 23 27
## [673] 17 27 19 24 26 31 27 23 23 21 21 24 25 26 22 26 25 23 16 23 23 25 24 26
## [697] 24 18 16 17 18 25 24 24 21 22 22 26 27 32 27 24 17 28 19 26 27 22 20 20
## [721] 25 26 25 28 22 20 18 23 23 17 19 27 27 21 25 24 27 26 30 28 20 25 28 28
## [745] 35 22 23 22 19 33 26 19 24 20 24 26 25 33 23 23 19 29 20 23 24 20 27 20
## [769] 22 18 18 19 15 20 20 25 29 22 23 14 21 22 28 20 23 25 31 27 30 21 21 23
## [793] 24 29 26 20 27 27 21 24 33 29 23 28 21 25 24 20 28 18 20 24 24 24 23 24
## [817] 26 31 19 29 19 30 33 19 18 18 21 25 25 23 20 24 21 28 29 26 31 27 22 22
## [841] 26 20 28 22 25 29 22 9 24 21 23 25 25 25 25 28 33 23 30 23 20 22 27 21
## [865] 27 21 26 25 28 29 31 24 25 28 26 27 28 24 24 29 21 21 22 23 26 17 27 22
## [889] 25 27 25 35 24 25 28 23 32 24 19 29 16 29 23 24 29 27 26 22 28 28 21 17
## [913] 24 22 24 30 25 30 20 28 20 26 22 24 23 22 27 30 21 22 23 28 26 26 17 23
## [937] 29 24 25 26 19 28 26 22 28 27 26 20 21 21 28 25 18 22 29 28 21 26 25 21
## [961] 23 29 26 26 34 24 32 25 31 22 17 22 25 34 20 22 28 28 20 19 24 23 24 29
## [985] 24 19 28 25 23 28 24 25 23 20 30 24 25 24 27 27 28 15 22 24 24 23 25 25
## [1009] 28 21 29 31 22 23 34 27 21 23 26 30 23 30 19 13 26 23 28 15 30 21 29 29
## [1033] 20 27 21 22 22 23 25 21 35 28 21 29 20 30 27 30 31 25 31 34 32 25 26 27
## [1057] 22 21 27 24 33 20 21 25 20 26 15 19 21 27 22 28 20 31 21 28 25 24 26 26
## [1081] 21 19 22 24 23 20 18 20 24 26 23 19 18 27 24 25 24 26 22 28 23 28 16 25
## [1105] 26 28 27 24 22 20 25 32 23 22 16 28 25 25 25 25 28 28 17 30 14 21 15 24
## [1129] 23 23 24 24 25 19 20 32 21 30 22 27 35 25 24 28 25 25 35 25 25 27 26 14
## [1153] 22 26 30 31 19 22 28 22 20 21 18 27 21 20 23 27 24 24 29 19 21 17 20 27
## [1177] 19 21 26 25 30 16 24 25 27 24 28 33 26 29 23 33 23 22 23 26 20 31 22 28
## [1201] 23 18 21 24 24 24 30 25 24 23 26 27 29 27 26 21 35 21 25 18 22 28 21 24
## [1225] 25 26 23 25 25 27 21 27 29 20 26 24 18 17 27 27 28 26 20 22 29 22 26 21
## [1249] 20 26 21 27 19 26 23 22 23 22 20 26 25 22 33 19 24 25 29 23 28 27 24 26
## [1273] 25 20 25 22 19 28 27 23 23 25 16 23 27 26 23 25 22 24 23 23 21 19 32 21
## [1297] 18 15 22 22 26 22 22 25 22 24 25 23 23 22 26 22 20 17 28 16 24 24 21 23
## [1321] 18 24 23 20 27 28 22 23 24 21 28 25 18 26 31 19 21 23 26 19 21 26 25 26
## [1345] 29 21 24 25 20 28 23 27 19 28 25 27 26 26 22 26 26 23 26 33 19 23 23 27
## [1369] 22 19 23 23 27 25 19 26 25 30 18 20 20 21 28 24 24 21 36 21 25 27 21 32
## [1393] 19 24 27 27 26 24 23 16 30 29 16 23 28 21 24 31 30 29 23 21 30 17 27 23
## [1417] 33 26 23 31 20 26 27 23 22 26 28 31 28 21 26 34 23 29 21 24 15 32 31 21
## [1441] 25 21 25 21 19 27 32 23 23 22 25 26 25 22 22 22 34 21 17 33 31 23 22 23
## [1465] 23 27 24 22 23 25 28 15 21 21 33 24 25 20 26 20 32 26 26 28 17 29 20 32
## [1489] 14 20 25 28 31 24 28 24 26 23 29 15 31 28 31 20 28 21 29 18 27 22 24 26
## [1513] 30 26 23 28 23 23 26 20 20 23 25 26 24 27 26 23 27 19 22 25 29 20 20 20
## [1537] 27 20 25 24 30 27 25 23 27 20 15 18 28 23 30 23 21 28 30 18 32 25 31 23
## [1561] 18 22 17 27 29 26 31 27 19 19 19 21 29 35 20 27 22 27 24 20 28 20 16 31
## [1585] 29 23 30 29 20 21 25 25 16 23 22 25 22 24 24 28 28 25 22 25 18 24 25 24
## [1609] 28 18 20 28 25 26 25 24 22 28 22 28 27 17 23 31 22 27 19 28 19 21 17 24
## [1633] 19 26 23 31 27 23 19 29 33 23 29 23 17 21 23 30 24 18 20 31 29 17 20 18
## [1657] 24 22 27 20 22 18 31 28 29 19 27 24 18 22 26 25 25 22 31 26 28 21 23 22
## [1681] 19 26 23 23 22 22 18 27 23 27 28 22 20 19 22 18 29 23 19 16 26 21 27 26
## [1705] 25 27 29 29 26 27 34 24 27 23 25 24 21 24 18 22 24 25 20 24 23 28 24 22
## [1729] 24 31 28 18 25 31 22 27 25 22 25 20 24 27 28 25 28 29 21 28 24 25 29 29
## [1753] 27 31 24 23 24 22 25 23 23 16 20 23 17 23 25 22 27 15 28 16 19 28 24 25
## [1777] 22 13 19 26 23 17 20 22 29 18 28 28 30 26 30 26 27 19 22 28 37 23 31 29
## [1801] 29 24 30 27 25 31 22 21 29 18 24 22 17 25 26 22 26 24 19 29 22 36 29 23
## [1825] 27 29 28 23 21 21 22 21 25 23 25 31 21 28 27 23 30 23 22 19 28 26 20 28
## [1849] 25 33 23 19 25 28 25 23 12 19 30 23 19 23 20 27 25 27 20 24 21 25 23 19
## [1873] 21 29 19 26 29 27 22 21 25 22 28 28 25 25 20 23 24 22 27 26 24 21 26 25
## [1897] 26 33 27 34 18 29 28 26 22 23 24 27 20 31 20 30 27 21 26 30 26 26 26 31
## [1921] 28 18 24 30 26 19 27 28 21 19 24 28 23 32 27 25 26 29 28 29 20 27 23 30
## [1945] 20 19 20 25 28 29 22 27 24 21 22 22 25 25 27 30 31 25 19 27 27 25 24 26
## [1969] 25 28 32 23 24 34 29 22 22 27 19 18 24 19 25 26 22 19 27 23 28 26 24 27
## [1993] 20 20 21 31 32 26 22 29 25 19 25 26 29 32 24 24 24 24 19 29 28 29 18 27
## [2017] 31 27 22 21 27 25 27 21 20 31 29 27 34 27 18 27 24 22 21 25 31 27 19 23
## [2041] 19 29 26 19 28 28 16 30 29 24 23 24 25 24 29 25 26 30 25 32 25 20 22 33
## [2065] 24 23 24 24 28 26 35 20 37 24 24 25 20 23 18 19 24 29 28 28 26 21 22 22
## [2089] 23 23 25 14 27 20 22 15 19 26 18 29 28 28 19 22 32 20 23 23 29 21 24 23
## [2113] 30 22 20 32 24 20 20 23 26 22 25 27 21 26 25 22 32 26 29 27 26 30 28 22
## [2137] 28 24 28 23 21 15 32 24 26 27 27 21 27 29 25 24 25 30 22 27 28 23 30 22
## [2161] 25 28 31 20 31 29 15 26 26 19 20 22 22 26 23 24 24 19 25 30 22 25 14 22
## [2185] 23 27 25 32 27 25 24 23 31 22 18 27 28 22 26 22 30 27 26 25 23 31 23 17
## [2209] 20 23 21 20 23 22 23 26 25 19 23 24 22 23 23 23 21 22 21 29 23 18 28 24
## [2233] 20 22 26 21 22 24 23 24 28 20 24 24 22 25 28 27 22 22 18 21 25 21 23 23
## [2257] 26 18 21 23 19 27 24 22 21 17 24 21 23 29 28 25 20 21 26 23 26 24 20 36
## [2281] 30 23 25 19 29 21 21 26 24 18 28 28 27 24 24 23 24 26 30 24 20 23 23 23
## [2305] 27 15 34 23 20 15 23 25 23 22 19 26 24 25 26 24 29 22 24 25 19 26 22 28
## [2329] 32 27 16 22 26 24 25 25 29 30 21 21 19 15 21 23 25 30 23 23 22 28 17 27
## [2353] 22 19 30 22 22 21 28 28 28 26 25 27 29 29 31 22 27 25 32 24 23 30 29 26
## [2377] 27 22 24 25 19 24 22 27 19 29 25 23 35 25 30 23 27 23 26 19 27 20 25 28
## [2401] 32 23 24 22 20 29 29 21 22 28 22 27 24 22 19 27 28 25 23 24 26 25 23 28
## [2425] 23 21 23 25 22 19 27 27 19 21 24 26 26 26 23 27 20 20 34 26 25 29 18 30
## [2449] 24 16 22 24 23 23 24 26 25 28 25 27 24 33 21 18 24 20 32 24 24 25 30 29
## [2473] 28 23 19 29 23 25 22 33 29 31 19 19 19 22 29 21 28 23 25 23 18 26 31 28
## [2497] 20 26 22 24 31 26 28 25 25 30 27 23 23 26 26 26 22 28 29 23 27 19 24 23
## [2521] 24 32 17 24 27 21 22 30 25 22 25 22 26 21 21 30 28 23 28 26 25 20 27 25
## [2545] 29 26 21 25 24 27 22 20 23 14 24 22 27 32 23 19 21 22 26 21 26 24 22 29
## [2569] 27 26 28 25 18 26 21 21 27 21 26 28 21 22 23 20 30 21 27 25 22 23 25 29
## [2593] 25 24 20 30 26 27 26 24 19 23 22 26 23 13 17 20 31 24 30 25 23 18 22 23
## [2617] 22 32 23 29 25 21 31 23 25 18 27 25 23 20 28 25 25 26 16 23 21 31 26 17
## [2641] 28 21 28 29 23 24 17 26 22 21 21 23 25 20 29 21 21 24 24 23 25 18 29 28
## [2665] 19 23 23 25 24 22 25 25 18 25 33 17 25 28 17 23 20 17 23 23 25 25 26 32
## [2689] 16 26 28 20 23 24 22 26 16 25 26 29 30 26 19 22 19 19 22 28 16 25 24 21
## [2713] 19 20 23 23 21 21 24 20 21 23 23 18 26 31 31 24 24 25 23 24 26 26 23 27
## [2737] 27 23 26 20 25 30 28 20 18 25 21 20 22 30 20 21 22 29 25 25 22 24 22 21
## [2761] 27 26 21 22 28 23 22 26 21 27 29 31 31 27 24 27 28 28 24 19 29 28 24 22
## [2785] 27 21 25 24 29 18 20 22 15 17 31 20 26 25 34 25 29 31 23 22 25 22 27 18
## [2809] 22 28 21 31 24 21 19 25 24 22 28 21 24 19 24 21 21 18 27 23 14 25 23 25
## [2833] 26 25 28 22 21 23 31 24 26 22 19 30 23 23 22 27 24 32 19 22 26 26 22 23
## [2857] 35 25 27 19 23 20 24 24 22 27 16 20 31 23 27 25 26 28 20 25 23 28 29 21
## [2881] 23 17 26 22 21 27 26 27 30 25 32 21 26 27 15 27 26 20 22 25 25 23 20 26
## [2905] 25 26 19 28 24 22 26 34 21 28 21 23 24 23 21 24 29 20 19 39 22 23 22 27
## [2929] 31 25 26 26 20 23 15 22 30 21 25 30 26 22 27 24 23 23 27 23 20 21 27 30
## [2953] 28 26 23 23 23 20 21 35 23 32 20 26 22 17 26 30 27 24 24 21 21 24 19 23
## [2977] 26 27 18 23 23 24 24 24 20 20 22 23 20 25 19 26 17 29 24 28 24 24 25 26
## [3001] 19 25 24 21 25 19 23 17 25 24 26 22 32 27 26 21 24 29 26 20 16 19 27 23
## [3025] 24 22 22 25 29 24 29 24 22 20 24 23 21 16 26 22 24 27 27 26 25 23 25 23
## [3049] 20 22 25 23 22 22 20 23 17 18 30 23 19 26 30 18 24 22 23 22 22 29 23 22
## [3073] 30 18 25 30 28 28 20 24 28 26 27 25 31 25 25 26 21 20 23 23 24 24 25 26
## [3097] 33 32 22 22 24 27 23 32 26 28 25 24 28 19 25 26 26 25 23 28 19 22 17 33
## [3121] 24 24 28 28 25 31 27 22 28 17 26 24 25 25 21 30 22 22 28 20 27 21 17 26
## [3145] 21 24 34 27 24 24 22 23 24 22 26 21 24 17 20 29 20 24 20 30 19 28 21 25
## [3169] 27 27 32 22 19 22 26 23 28 27 31 24 29 23 18 24 26 32 29 32 27 19 25 22
## [3193] 27 30 22 24 31 26 26 25 27 30 23 24 27 23 25 20 27 28 20 25 21 17 34 30
## [3217] 25 27 27 24 30 27 21 19 25 21 31 28 32 19 17 21 30 30 26 27 21 25 29 25
## [3241] 29 24 23 20 15 19 22 31 27 28 26 27 25 18 24 24 25 25 27 24 25 19 24 24
## [3265] 23 18 23 19 19 22 21 19 16 25 22 30 29 30 24 20 25 23 36 28 24 26 20 23
## [3289] 37 30 19 27 26 28 29 24 18 30 26 20 19 19 26 23 25 23 24 26 23 28 26 26
## [3313] 19 19 19 20 21 24 28 23 20 25 20 25 20 22 24 31 26 26 22 25 22 23 24 22
## [3337] 24 21 25 23 24 32 24 20 28 25 25 18 22 29 20 20 17 22 24 30 25 24 28 29
## [3361] 28 25 21 26 30 20 24 25 27 21 26 23 25 24 24 26 24 29 19 25 22 23 27 22
## [3385] 23 27 28 22 27 22 29 18 29 25 25 18 26 31 23 26 18 15 31 26 29 25 30 24
## [3409] 28 20 25 27 25 25 18 29 26 19 29 26 24 26 28 28 23 20 19 28 21 24 28 22
## [3433] 26 29 27 28 28 26 24 28 16 23 18 18 25 18 23 26 21 17 30 21 28 20 27 25
## [3457] 25 25 32 23 19 27 24 17 19 22 25 22 19 27 27 16 22 16 19 22 22 26 21 25
## [3481] 29 23 27 29 29 31 24 25 22 21 29 24 26 21 22 25 25 25 18 18 24 26 26 29
## [3505] 19 22 29 22 26 26 20 25 19 16 27 25 25 22 22 29 29 27 29 20 26 18 22 25
## [3529] 29 28 27 29 23 24 24 22 19 30 25 25 27 25 23 29 27 23 22 33 24 32 22 25
## [3553] 24 27 29 18 20 25 29 26 27 20 19 31 25 22 25 25 14 32 23 29 24 20 26 23
## [3577] 27 29 30 29 28 29 29 24 29 24 22 29 21 15 17 32 20 21 22 27 25 24 30 28
## [3601] 22 25 28 31 24 22 25 26 28 27 23 24 24 32 23 24 29 22 27 23 23 21 17 26
## [3625] 28 22 20 22 21 21 20 23 19 22 25 33 29 21 27 20 22 21 31 22 21 27 19 18
## [3649] 27 21 24 24 27 28 26 28 20 23 28 21 25 27 21 23 26 15 26 18 20 15 23 28
## [3673] 23 27 22 24 25 26 27 23 27 29 27 21 27 21 21 11 28 27 25 22 23 19 22 18
## [3697] 26 26 26 35 21 23 25 26 18 25 28 20 28 23 28 28 21 20 25 22 27 19 34 32
## [3721] 30 32 24 20 22 31 19 28 22 21 23 24 14 23 24 24 23 25 21 26 25 25 26 25
## [3745] 24 19 22 25 20 27 22 24 26 32 15 24 27 26 26 20 19 30 30 26 27 33 24 22
## [3769] 24 22 24 28 27 21 26 20 26 22 26 28 25 31 24 23 25 22 26 13 23 22 24 27
## [3793] 30 21 18 26 23 25 20 16 24 27 22 26 23 23 32 19 22 28 23 25 23 19 30 25
## [3817] 27 24 21 25 25 20 18 25 24 28 27 20 24 31 28 28 16 32 23 21 20 26 24 25
## [3841] 24 21 22 23 18 21 28 18 27 25 26 25 23 20 24 23 28 18 20 26 22 29 22 31
## [3865] 27 17 24 21 19 22 23 32 27 26 29 22 29 22 26 23 19 23 31 29 25 26 23 23
## [3889] 17 25 27 23 11 25 20 25 18 17 21 30 25 24 30 28 25 15 27 20 22 17 17 21
## [3913] 31 23 18 26 28 19 22 31 27 23 25 19 23 22 26 24 22 25 17 27 22 17 16 31
## [3937] 29 23 26 23 27 18 26 22 30 29 24 15 24 26 20 23 18 27 18 19 29 35 23 21
## [3961] 34 31 26 18 24 26 20 22 22 28 21 29 29 28 22 23 22 24 21 17 21 26 19 23
## [3985] 32 19 29 18 18 20 21 31 29 17 21 28 23 25 23 16 25 21 30 26 22 23 22 27
## [4009] 24 20 23 23 33 21 25 25 18 19 20 22 30 20 25 23 27 15 23 31 29 28 16 18
## [4033] 25 27 25 32 24 23 30 24 23 31 21 24 32 27 29 21 24 16 19 26 24 25 28 24
## [4057] 23 28 34 26 19 26 27 30 21 28 27 30 26 30 28 27 25 28 21 24 21 27 25 23
## [4081] 32 33 24 31 22 31 34 23 27 20 28 31 24 19 28 23 22 26 28 23 23 14 23 23
## [4105] 30 24 17 25 22 18 25 26 21 26 27 26 26 27 23 26 21 28 24 24 23 30 24 19
## [4129] 33 17 25 30 26 23 28 28 27 25 29 34 33 22 22 26 20 25 27 20 27 27 24 21
## [4153] 24 24 17 22 24 26 23 31 18 22 21 19 24 26 29 30 20 25 29 23 24 30 18 25
## [4177] 30 25 24 19 23 24 27 29 23 34 29 26 27 22 18 21 24 28 21 22 17 21 21 25
## [4201] 30 28 27 18 25 24 20 27 21 18 23 22 30 22 18 25 21 32 28 22 31 35 31 23
## [4225] 35 30 18 21 28 36 16 24 27 30 22 26 20 24 25 18 22 20 33 19 32 28 20 19
## [4249] 23 24 27 20 19 27 28 33 24 33 20 18 22 26 28 22 32 29 26 27 23 24 17 31
## [4273] 20 22 27 18 30 20 21 24 26 23 29 17 19 28 27 24 22 28 27 24 29 23 24 16
## [4297] 24 26 23 25 32 22 24 22 28 25 29 24 24 24 26 26 20 29 22 35 28 26 22 23
## [4321] 26 20 19 20 30 21 29 21 25 18 28 27 29 30 30 24 23 26 22 27 18 22 27 20
## [4345] 23 19 23 18 23 23 30 29 30 22 31 25 23 24 24 25 27 16 23 33 24 14 27 23
## [4369] 22 21 23 24 21 27 25 21 25 27 23 16 26 16 22 25 29 22 14 21 21 19 30 24
## [4393] 21 28 25 31 17 25 23 26 26 26 25 26 29 25 22 28 20 29 33 18 26 26 28 23
## [4417] 32 21 24 21 22 22 23 23 21 32 30 33 28 28 26 21 26 36 20 33 23 21 22 28
## [4441] 16 25 23 22 29 25 26 28 19 27 34 30 31 22 25 25 21 24 30 18 25 24 30 27
## [4465] 30 28 22 30 26 24 27 25 27 31 14 30 36 28 20 22 15 25 18 21 23 25 28 22
## [4489] 24 19 29 23 19 20 21 22 20 23 26 24 20 24 17 25 21 26 29 31 18 24 25 26
## [4513] 18 27 24 25 20 21 24 26 17 22 26 22 29 19 22 21 20 22 22 25 24 25 29 26
## [4537] 18 23 21 26 28 30 27 32 15 30 30 24 17 20 27 25 26 24 29 26 26 24 25 20
## [4561] 24 24 25 21 30 25 20 33 22 17 23 35 18 22 25 27 28 18 27 21 25 21 25 24
## [4585] 32 26 25 24 19 29 29 22 31 31 21 34 19 26 30 26 29 27 23 22 23 21 24 25
## [4609] 30 25 27 22 24 25 17 29 20 25 22 33 27 22 23 25 23 22 33 24 26 20 26 20
## [4633] 27 31 26 23 26 21 22 35 28 23 26 23 26 25 32 29 21 32 25 26 28 27 25 27
## [4657] 27 28 27 22 34 24 28 25 27 28 26 24 27 19 25 25 22 25 19 22 32 24 25 30
## [4681] 20 27 21 34 24 23 25 16 22 21 22 23 19 23 30 34 23 26 18 24 27 21 29 22
## [4705] 20 15 22 27 19 16 20 21 24 25 22 22 24 23 28 25 30 29 26 21 27 18 22 23
## [4729] 22 31 22 28 28 20 20 22 19 26 24 26 21 23 26 25 24 22 21 20 19 22 24 29
## [4753] 25 21 24 27 26 20 18 19 20 19 22 21 19 31 25 21 26 17 24 28 20 21 27 26
## [4777] 31 27 25 23 25 24 30 31 22 27 22 26 15 27 24 29 21 24 17 26 24 18 23 29
## [4801] 22 32 14 25 28 28 26 23 16 19 25 20 17 25 24 20 23 28 25 16 26 27 17 18
## [4825] 23 23 17 21 24 37 21 21 21 24 23 24 19 24 18 25 28 19 26 14 26 23 31 19
## [4849] 22 20 28 30 22 23 27 24 23 34 27 21 33 19 21 24 25 18 21 27 32 29 25 21
## [4873] 27 22 16 30 26 25 20 22 21 28 30 23 27 27 31 24 23 24 18 16 20 24 30 26
## [4897] 24 25 26 27 21 26 23 25 26 27 28 24 31 28 28 23 24 26 18 26 28 29 23 30
## [4921] 24 19 21 26 26 24 15 24 21 23 26 17 25 17 22 29 21 24 29 25 21 23 27 27
## [4945] 32 25 29 23 27 23 18 23 28 22 21 23 25 20 28 20 28 28 25 23 31 23 20 21
## [4969] 15 28 26 15 23 23 26 24 20 20 18 26 30 28 18 23 22 24 25 25 32 24 30 22
## [4993] 28 21 28 19 26 24 29 24Otra vez compilamos las frecuencias
res2=table(contador2)
res2## contador2
## 9 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
## 1 2 2 6 18 38 50 90 158 215 287 346 435 500 495 491 427 366 316 242
## 30 31 32 33 34 35 36 37 39
## 172 135 82 50 36 23 12 4 1Ahora analizamos la participación porcentual
resp2=(res2/5000)*100
resp2## contador2
## 9 11 12 13 14 15 16 17 18 19 20 21 22
## 0.02 0.04 0.04 0.12 0.36 0.76 1.00 1.80 3.16 4.30 5.74 6.92 8.70
## 23 24 25 26 27 28 29 30 31 32 33 34 35
## 10.00 9.90 9.82 8.54 7.32 6.32 4.84 3.44 2.70 1.64 1.00 0.72 0.46
## 36 37 39
## 0.24 0.08 0.02Ahora veamos su gráfico
barplot(resp2)
En esta situación observamos que el resultado no es consistente, puesto que arroja que el numero que más se repite de contagiados por muestra de tamaño 100 es 24 contagiados. Contrario a 30.