Tarea #3
Alexandra Osorio
20/9/2020
calcularenfermos=function(n){
## lo primero es crear la población ficticia donde 60 son los empleados enfermos y 940 los que no.
empleados=sample(c(rep("+",60),rep("-",940)))
## lo segundo es calcular el porcentaje real de enfermos
real=60/1000*100
real
## lo tercero es sacar una muestra de la población fiticia
muestra=sample(empleados,size = n)
## lo cuarto es de esa muestra calcular los positivos(los enfermos de Covid-19)
enfermosmuestra=sum(muestra=="+")
return(enfermosmuestra)
}
calcularenfermos(n=100)## [1] 6Covid=rep(NA,5000)
a1=for (i in 1:5000) {
Covid[i]=calcularenfermos(n=100)
}
Covid## [1] 6 6 5 7 9 5 7 3 7 7 9 5 7 6 8 5 6 4 7 9 5 3 9 2
## [25] 4 5 10 6 4 5 7 6 1 4 10 8 10 5 6 7 5 10 2 5 7 4 7 7
## [49] 9 3 3 3 5 5 5 6 6 4 6 8 10 5 13 2 4 8 3 5 5 9 4 8
## [73] 12 3 4 7 8 7 7 7 9 4 5 5 6 7 5 9 5 6 3 8 7 5 5 7
## [97] 4 8 2 5 6 7 4 3 5 6 5 9 10 5 4 5 6 7 5 2 3 8 7 6
## [121] 5 6 10 9 6 6 5 5 3 7 5 1 5 6 7 10 6 4 6 7 7 4 7 7
## [145] 6 3 6 6 4 5 4 6 6 3 6 5 5 6 4 6 4 11 3 4 4 3 9 4
## [169] 7 4 4 7 5 4 9 6 7 8 6 2 5 10 7 6 9 3 6 6 3 8 4 4
## [193] 3 4 5 3 2 7 4 8 6 4 6 9 5 10 7 2 6 7 10 11 4 9 5 5
## [217] 9 7 3 9 6 4 8 7 3 9 10 4 6 5 5 8 3 9 6 5 0 9 5 7
## [241] 5 11 6 4 1 7 3 9 7 5 9 9 7 5 0 2 8 1 12 3 6 6 4 8
## [265] 3 7 8 6 5 5 3 3 7 5 8 10 3 7 5 4 3 9 6 4 8 8 5 4
## [289] 6 5 2 4 6 9 5 6 4 6 3 6 9 5 5 6 5 6 7 3 5 7 10 6
## [313] 6 7 7 5 10 6 8 0 6 9 7 9 7 7 5 8 12 6 5 8 7 3 7 10
## [337] 10 7 5 3 5 4 3 7 7 5 3 5 12 5 7 5 8 5 5 6 9 7 5 7
## [361] 4 6 4 7 4 8 6 4 9 3 8 6 7 6 4 9 3 2 4 7 6 3 6 6
## [385] 7 6 7 9 5 7 5 6 6 4 6 4 11 8 6 8 7 5 6 8 5 8 4 7
## [409] 7 5 5 6 4 6 6 6 8 4 7 3 7 4 10 6 6 5 5 5 9 9 9 4
## [433] 3 7 8 3 5 10 8 2 4 6 7 6 6 4 5 10 8 11 6 7 8 9 6 6
## [457] 5 2 8 6 5 7 2 5 6 8 2 12 10 4 4 5 5 5 9 7 4 11 7 12
## [481] 10 9 12 8 9 7 9 5 4 8 2 9 6 2 7 7 5 7 5 4 5 7 9 5
## [505] 3 6 8 9 1 10 7 5 9 8 9 8 5 5 3 4 7 5 3 9 7 6 7 5
## [529] 8 7 7 4 5 1 9 7 5 2 6 6 5 7 1 7 5 2 5 10 11 10 6 4
## [553] 5 5 10 5 10 6 5 8 5 5 3 5 3 5 9 7 12 9 5 4 8 3 10 5
## [577] 3 3 7 1 6 7 9 8 7 6 2 6 5 5 4 6 5 7 6 5 5 9 7 6
## [601] 6 2 4 8 7 5 5 4 5 3 6 9 8 7 7 6 5 8 7 7 5 9 7 7
## [625] 8 6 9 7 8 6 7 5 8 7 6 7 4 8 6 5 5 8 6 3 6 2 2 5
## [649] 7 8 5 3 7 4 6 6 10 6 2 8 2 6 7 6 6 4 7 6 4 10 2 7
## [673] 5 5 8 3 7 7 4 4 4 2 7 5 2 4 5 4 6 6 4 6 5 5 5 5
## [697] 8 8 7 4 2 5 7 5 8 3 8 2 6 5 3 11 9 5 6 6 3 8 4 5
## [721] 7 6 8 6 2 4 3 7 10 8 8 7 3 7 9 4 6 8 8 7 2 8 4 4
## [745] 7 5 7 11 10 9 5 7 8 7 8 6 5 4 4 5 4 9 2 6 10 8 3 3
## [769] 4 7 3 6 4 7 8 8 6 7 9 4 5 5 7 6 4 4 10 6 6 8 3 3
## [793] 3 6 6 3 9 5 10 4 2 7 7 12 9 8 7 9 7 8 4 3 5 4 3 5
## [817] 5 9 7 6 11 9 7 5 2 9 10 3 8 7 8 6 7 8 10 6 2 8 10 3
## [841] 8 8 9 8 3 2 3 10 9 7 6 7 10 12 4 5 3 8 9 10 8 10 10 10
## [865] 5 0 1 6 5 6 4 2 5 1 2 5 4 8 4 6 7 2 2 9 10 3 6 7
## [889] 4 3 6 7 6 8 4 5 7 6 5 6 8 7 3 6 4 6 4 6 9 7 7 7
## [913] 12 4 4 4 1 6 7 7 6 9 5 1 4 5 5 4 1 9 7 12 6 5 5 7
## [937] 5 8 5 8 2 5 4 7 7 5 9 6 2 9 4 5 7 6 4 8 4 9 10 10
## [961] 5 8 5 3 7 2 4 9 4 6 8 7 9 7 13 6 2 8 7 9 7 6 6 5
## [985] 7 4 6 5 3 12 5 2 3 7 6 7 4 11 8 10 5 1 9 12 9 5 4 4
## [1009] 8 5 4 5 6 10 5 6 9 9 3 7 9 5 2 2 8 9 11 3 9 5 4 4
## [1033] 3 6 5 9 6 2 7 6 10 7 6 6 7 5 5 2 8 7 8 2 9 10 4 9
## [1057] 5 3 5 3 5 4 7 4 6 11 5 5 13 3 7 10 4 5 8 4 9 12 5 9
## [1081] 4 6 6 5 5 9 9 10 6 8 5 3 1 6 6 7 5 5 6 6 8 5 5 8
## [1105] 6 4 6 5 5 6 6 11 8 6 9 10 4 4 3 8 11 6 9 6 6 9 10 4
## [1129] 8 6 10 6 7 4 6 5 6 8 5 6 5 2 6 7 6 8 7 5 1 6 4 7
## [1153] 5 5 2 5 7 6 5 9 10 7 10 10 9 5 7 7 7 7 2 2 6 7 7 6
## [1177] 5 8 5 7 2 11 7 6 3 5 9 5 9 4 4 6 4 3 7 5 7 5 7 3
## [1201] 10 6 4 8 4 6 7 6 4 8 9 4 7 6 7 5 9 4 7 7 8 7 7 5
## [1225] 5 3 5 5 4 3 4 8 6 3 7 3 7 5 6 7 5 10 6 14 8 3 5 4
## [1249] 2 5 8 3 9 7 6 6 8 8 6 2 5 5 6 3 4 8 7 3 10 3 7 9
## [1273] 8 7 2 11 5 3 6 4 3 9 7 6 8 9 8 5 4 5 6 10 3 6 3 3
## [1297] 8 7 5 12 4 4 9 6 10 4 4 3 4 12 9 9 10 2 5 6 8 3 5 6
## [1321] 8 6 7 3 2 7 4 4 10 8 6 9 5 3 6 2 6 9 3 8 7 5 10 6
## [1345] 2 8 9 2 5 7 7 4 5 7 8 4 9 6 7 3 8 4 7 6 9 7 2 5
## [1369] 4 4 7 9 8 5 5 7 8 6 9 9 6 7 8 7 6 9 6 7 12 5 6 3
## [1393] 3 4 4 5 5 5 6 6 7 5 10 4 8 5 6 6 4 6 5 3 7 5 5 5
## [1417] 5 9 2 8 7 4 6 16 5 5 5 2 4 5 5 6 5 3 7 5 7 11 7 9
## [1441] 9 7 3 8 2 5 8 8 6 5 3 4 5 5 8 5 6 5 3 5 8 7 4 5
## [1465] 9 6 7 2 9 6 11 7 6 6 7 7 11 3 9 4 6 5 4 3 4 6 5 4
## [1489] 8 4 8 8 2 6 7 2 7 6 6 4 4 5 6 7 7 3 5 4 5 9 9 3
## [1513] 10 10 12 4 7 5 8 12 7 6 3 9 5 5 8 7 6 9 7 7 4 4 8 5
## [1537] 8 6 5 7 4 6 5 5 6 9 8 3 6 5 3 4 7 7 4 7 11 8 5 9
## [1561] 5 4 11 8 9 9 10 5 5 4 7 3 10 3 4 7 5 2 9 9 6 7 8 4
## [1585] 5 7 10 5 8 7 5 6 8 7 9 7 3 3 4 7 4 6 7 4 6 6 7 4
## [1609] 5 12 6 7 4 5 4 8 8 2 6 4 3 6 7 7 8 9 4 6 6 4 6 7
## [1633] 9 3 10 7 1 10 1 6 2 7 6 11 6 4 5 8 5 4 7 5 5 7 6 10
## [1657] 8 7 3 7 5 3 4 4 3 5 6 7 12 8 6 6 3 7 5 3 6 5 6 5
## [1681] 6 2 6 3 5 4 8 6 7 8 5 5 4 6 4 7 3 10 4 9 3 6 10 8
## [1705] 4 10 5 5 2 11 5 3 8 6 4 5 10 6 9 5 7 8 6 8 6 5 7 6
## [1729] 3 2 5 1 6 4 7 10 5 4 8 3 6 2 5 4 10 7 7 6 9 1 7 6
## [1753] 4 6 3 5 5 7 8 4 7 5 7 5 7 4 6 2 4 5 8 9 5 3 5 4
## [1777] 4 9 6 9 7 3 6 9 8 6 4 7 11 3 9 8 2 4 10 7 7 9 3 4
## [1801] 4 6 11 5 5 6 6 4 5 6 7 3 12 5 8 6 9 6 4 6 5 4 9 5
## [1825] 8 4 7 4 7 7 6 4 3 6 6 5 1 5 6 4 7 6 9 7 6 5 7 2
## [1849] 9 2 5 7 4 5 3 7 10 4 9 6 4 6 7 10 5 4 7 3 4 4 6 10
## [1873] 6 4 5 4 7 6 8 6 7 5 6 2 4 7 6 5 6 9 4 7 10 4 2 7
## [1897] 5 6 10 9 6 7 5 8 3 7 9 4 6 14 7 7 3 6 3 4 6 5 5 4
## [1921] 10 5 5 7 10 7 5 4 2 6 8 6 9 6 6 3 5 3 5 5 9 7 7 8
## [1945] 10 4 10 2 9 8 6 10 7 5 5 10 4 7 7 9 7 4 9 4 3 7 6 4
## [1969] 4 7 7 7 6 4 6 10 7 5 4 7 12 7 4 1 7 4 1 10 8 9 3 4
## [1993] 8 4 4 3 8 9 6 7 8 8 9 4 7 6 5 4 7 3 2 6 8 4 6 9
## [2017] 6 7 8 7 5 8 6 8 6 2 5 5 6 4 4 3 7 7 7 9 5 8 8 6
## [2041] 7 4 8 6 3 5 7 6 2 3 4 4 9 3 9 6 5 8 8 5 6 4 8 7
## [2065] 6 4 9 7 8 8 5 7 11 3 2 7 11 4 2 6 7 4 5 8 6 5 9 6
## [2089] 4 3 3 6 9 7 5 4 5 6 8 6 6 7 4 4 5 6 6 8 2 3 10 5
## [2113] 6 5 5 11 4 9 7 4 11 4 5 7 4 4 6 11 10 7 9 5 7 9 9 6
## [2137] 5 7 10 2 6 5 9 8 13 10 9 5 6 2 7 4 7 4 4 8 9 7 4 6
## [2161] 5 8 8 7 7 8 9 4 6 6 8 6 3 8 7 7 4 4 10 6 6 5 12 4
## [2185] 6 4 5 5 7 8 9 4 8 8 6 6 2 7 3 7 8 5 4 5 3 7 8 9
## [2209] 8 6 6 9 2 5 8 5 10 7 5 6 5 5 4 7 5 7 8 7 5 6 5 6
## [2233] 6 3 9 6 7 5 12 3 6 4 8 8 5 6 5 5 3 10 3 9 7 5 4 5
## [2257] 7 12 7 6 1 9 5 5 3 3 7 5 8 3 4 7 13 6 8 5 3 3 6 4
## [2281] 3 1 7 7 5 2 5 4 10 2 8 4 4 9 5 8 6 4 6 6 5 7 5 9
## [2305] 5 8 5 7 3 4 9 3 5 7 9 9 7 3 6 12 9 4 3 7 7 7 6 4
## [2329] 6 9 5 4 5 10 3 5 5 5 4 8 10 6 4 5 6 4 2 6 10 7 6 6
## [2353] 8 7 2 13 9 6 10 10 3 7 3 5 6 1 4 6 7 7 8 7 8 3 4 7
## [2377] 4 4 4 5 2 7 6 7 6 7 10 4 2 4 7 7 11 6 8 3 7 6 7 9
## [2401] 3 4 6 6 5 4 7 6 5 7 3 4 5 7 6 5 8 2 3 6 8 4 3 6
## [2425] 8 10 9 5 6 6 1 6 5 3 6 7 7 4 2 5 7 12 8 13 7 2 2 4
## [2449] 8 2 7 4 7 7 5 4 9 6 3 4 3 4 11 10 5 9 9 7 9 6 5 9
## [2473] 5 4 5 4 5 6 4 3 0 5 4 11 9 9 7 6 3 2 6 5 6 6 9 8
## [2497] 3 12 6 7 10 3 2 2 7 3 7 11 7 4 6 7 7 6 9 7 6 10 8 3
## [2521] 6 7 7 6 2 8 7 2 4 4 5 5 5 8 6 3 4 10 4 6 8 6 4 8
## [2545] 4 5 4 4 5 2 5 5 9 8 3 5 2 7 2 5 5 9 6 5 8 3 9 9
## [2569] 12 4 8 3 6 5 6 4 5 3 5 11 4 9 8 6 5 7 10 8 9 4 6 7
## [2593] 6 6 6 5 5 2 4 7 5 4 6 5 6 9 3 5 3 5 9 8 6 4 5 5
## [2617] 5 12 7 7 8 7 6 5 4 9 8 3 5 8 7 5 5 7 4 6 4 10 4 8
## [2641] 4 7 5 6 3 9 7 1 8 10 5 12 5 7 7 3 7 6 9 6 8 6 0 12
## [2665] 6 8 5 5 4 2 8 7 5 4 11 7 6 4 8 6 5 5 3 6 8 6 7 7
## [2689] 6 8 8 8 6 6 6 8 4 5 4 5 5 9 9 6 2 5 8 8 6 5 5 8
## [2713] 8 12 6 6 4 7 5 8 1 5 9 5 6 4 7 8 4 8 8 8 6 8 4 4
## [2737] 2 3 8 6 6 5 5 10 5 4 5 5 8 4 8 8 11 7 6 4 5 5 5 6
## [2761] 8 13 6 7 6 13 6 3 9 3 7 7 6 6 6 4 5 9 7 10 4 6 8 4
## [2785] 4 5 6 10 5 5 7 6 5 2 5 5 4 5 3 5 6 8 9 8 6 1 6 5
## [2809] 3 10 7 4 6 6 8 10 2 7 7 6 9 7 4 3 8 7 3 4 6 9 8 9
## [2833] 3 7 5 6 7 8 4 9 5 7 6 6 9 6 3 7 4 6 6 6 6 8 7 6
## [2857] 8 5 9 4 6 10 4 5 6 6 6 3 4 6 7 6 5 6 6 6 3 7 5 6
## [2881] 9 10 7 9 6 7 5 3 11 7 7 5 8 5 4 5 2 5 5 6 4 5 4 12
## [2905] 5 8 5 4 8 10 6 2 8 4 7 6 5 4 2 7 6 8 3 5 5 9 3 3
## [2929] 6 5 7 4 4 6 13 4 6 8 6 9 5 3 7 6 7 7 9 3 9 7 4 3
## [2953] 8 3 5 3 8 6 5 4 4 8 5 6 7 4 3 10 3 6 3 6 8 7 4 6
## [2977] 5 6 7 3 6 8 5 6 7 7 4 6 4 2 7 4 7 7 9 4 7 8 4 8
## [3001] 3 5 6 5 10 5 6 5 5 6 4 5 4 2 5 5 8 5 5 7 5 7 12 5
## [3025] 12 4 8 6 9 6 6 6 8 4 7 3 3 8 8 8 6 12 5 4 6 6 9 7
## [3049] 5 4 4 6 6 2 3 4 2 4 6 5 4 4 10 5 11 6 8 5 6 3 6 3
## [3073] 8 7 13 3 8 6 2 2 9 9 7 9 7 8 9 3 8 5 7 3 8 5 5 6
## [3097] 4 4 4 5 5 6 5 4 8 5 6 9 5 10 7 6 9 4 11 9 4 5 2 6
## [3121] 5 6 3 15 8 8 5 7 6 7 6 5 3 3 6 7 7 5 6 10 8 4 6 8
## [3145] 6 7 3 5 4 3 7 5 7 13 2 5 11 6 7 8 7 9 9 7 7 4 14 6
## [3169] 13 13 6 5 3 5 2 6 4 8 9 6 7 5 7 8 9 6 7 7 8 3 5 7
## [3193] 8 7 7 5 4 4 9 6 8 9 6 8 7 5 9 5 1 4 6 5 8 2 5 5
## [3217] 5 11 6 3 6 6 2 2 5 6 10 8 8 9 6 4 3 6 10 4 2 8 2 4
## [3241] 8 5 5 8 12 5 3 6 3 7 8 3 7 8 6 7 5 6 6 5 6 6 7 3
## [3265] 7 5 8 10 7 5 5 5 9 8 9 10 4 8 7 7 5 5 3 4 4 7 8 8
## [3289] 5 7 5 5 7 10 6 7 4 5 5 8 2 6 6 8 6 5 6 3 8 4 3 5
## [3313] 7 8 3 6 6 3 8 5 9 7 6 5 6 5 8 3 11 7 6 9 7 7 6 7
## [3337] 3 10 4 8 5 9 5 4 6 10 6 5 9 10 8 5 4 4 10 8 9 7 7 8
## [3361] 6 8 7 6 6 10 4 8 4 4 2 6 1 7 3 8 6 7 5 2 5 4 7 7
## [3385] 7 6 2 6 6 6 3 6 4 4 4 6 3 7 11 6 6 6 8 10 8 8 8 2
## [3409] 2 7 2 7 3 5 6 5 7 8 6 6 7 6 7 6 6 5 6 3 6 4 7 7
## [3433] 4 5 5 8 5 8 5 7 8 8 8 7 12 6 6 10 2 9 5 3 4 8 6 8
## [3457] 6 9 7 6 9 8 4 8 5 4 3 6 11 3 1 7 4 5 12 4 4 9 8 4
## [3481] 9 7 9 6 5 8 5 6 6 6 11 5 3 4 4 4 4 4 5 6 6 2 5 3
## [3505] 7 6 9 10 4 6 5 4 4 3 8 6 8 6 5 3 11 2 8 6 9 7 3 9
## [3529] 10 4 5 8 6 6 7 6 4 4 7 5 10 7 9 6 3 3 6 8 3 6 8 4
## [3553] 5 8 7 6 3 5 8 5 7 8 8 6 9 7 2 5 8 4 7 7 3 6 6 3
## [3577] 11 5 10 3 6 2 6 5 6 5 7 5 8 4 3 5 7 6 7 6 6 5 5 4
## [3601] 8 4 5 4 8 6 3 4 4 6 3 6 4 6 7 7 6 6 6 6 4 5 5 5
## [3625] 4 8 3 6 10 5 9 10 4 6 4 6 5 5 4 8 4 9 12 5 5 6 5 7
## [3649] 6 7 2 4 6 6 5 8 4 8 5 6 7 5 8 10 4 6 9 5 10 9 6 8
## [3673] 3 5 0 6 5 6 7 7 8 4 3 3 7 5 5 5 5 10 3 5 7 3 4 5
## [3697] 9 5 9 7 8 6 9 5 6 4 4 5 7 3 6 3 4 7 4 3 6 6 7 6
## [3721] 4 12 3 5 3 3 5 8 7 11 6 7 10 6 7 7 5 6 9 9 5 4 7 10
## [3745] 8 7 9 5 0 8 6 2 10 6 10 5 6 7 6 8 7 5 7 8 6 6 4 4
## [3769] 8 6 5 8 2 4 9 4 3 4 10 3 2 4 4 6 2 5 5 6 7 5 9 6
## [3793] 2 7 5 8 5 6 4 8 6 5 6 1 4 7 7 5 6 6 8 7 5 4 3 8
## [3817] 4 9 4 3 6 11 5 4 2 6 8 2 11 8 9 7 4 8 5 9 8 3 7 6
## [3841] 7 10 2 5 8 6 5 6 8 6 7 6 3 4 2 6 7 2 6 9 9 9 7 5
## [3865] 8 2 4 6 8 7 4 6 6 6 4 4 6 6 11 9 5 6 7 3 2 5 4 8
## [3889] 6 3 7 8 7 6 10 5 0 5 8 6 6 6 8 5 5 6 7 6 4 4 8 5
## [3913] 4 7 7 7 5 5 3 10 6 4 9 4 7 7 4 6 6 8 5 6 7 7 3 5
## [3937] 7 7 7 8 11 5 2 5 3 7 6 4 7 8 6 4 8 10 9 9 6 7 8 6
## [3961] 7 4 7 6 3 10 6 3 9 8 5 4 7 10 6 5 7 7 4 6 8 8 5 8
## [3985] 5 11 6 6 1 8 9 5 7 10 4 6 9 5 4 9 5 3 6 6 11 6 9 7
## [4009] 3 8 4 7 4 3 6 4 8 6 5 7 6 4 6 8 6 7 7 10 8 6 8 6
## [4033] 6 6 8 10 5 6 4 2 6 8 8 4 6 7 6 4 5 8 4 5 5 6 5 4
## [4057] 4 10 7 8 7 3 2 8 5 6 8 3 4 10 7 11 9 5 6 7 6 7 5 4
## [4081] 8 4 9 6 5 7 10 6 10 8 4 5 4 6 4 6 5 4 4 6 4 1 5 4
## [4105] 11 4 10 9 4 9 5 4 4 8 4 7 7 4 7 7 3 6 9 5 6 6 7 10
## [4129] 4 9 7 5 8 5 7 9 6 9 9 6 6 6 10 6 6 7 6 6 6 6 5 4
## [4153] 4 5 5 4 8 4 7 5 3 5 7 7 7 8 9 5 4 3 5 9 3 3 6 11
## [4177] 7 5 10 6 7 4 6 6 6 6 4 2 5 3 7 5 6 7 10 3 4 5 7 11
## [4201] 6 6 5 4 3 6 5 7 9 10 7 6 6 5 10 5 9 5 4 9 5 7 8 6
## [4225] 4 8 7 6 6 9 3 9 6 5 8 6 4 5 8 4 1 8 5 4 5 7 5 9
## [4249] 11 7 4 5 4 6 4 12 8 10 5 5 7 7 7 6 7 3 9 7 5 3 11 5
## [4273] 3 6 7 4 4 12 6 11 5 5 6 7 9 11 6 4 3 6 6 4 9 1 5 3
## [4297] 9 6 5 2 6 7 7 9 5 3 7 3 6 8 9 4 5 5 5 10 5 6 7 6
## [4321] 6 6 5 4 3 8 7 2 6 9 9 5 4 6 2 8 7 5 10 3 7 6 8 13
## [4345] 7 4 9 5 4 8 7 8 3 3 2 6 8 13 9 9 5 4 6 9 11 7 2 3
## [4369] 4 4 3 4 8 9 3 6 9 4 7 4 4 6 5 5 10 3 8 2 7 7 4 1
## [4393] 5 5 6 12 3 11 3 6 6 3 5 5 7 4 5 2 11 6 3 3 7 8 6 11
## [4417] 8 9 6 9 4 5 4 7 2 6 7 4 8 4 4 7 8 1 6 7 4 9 6 4
## [4441] 4 8 2 7 6 7 5 8 8 8 7 3 5 4 4 4 8 3 7 5 5 9 3 9
## [4465] 5 6 9 5 8 7 6 4 6 5 4 6 5 6 5 5 7 3 5 6 5 7 6 6
## [4489] 11 9 8 5 8 6 7 6 5 8 7 5 6 5 3 3 4 10 9 8 5 7 9 3
## [4513] 7 5 5 6 3 9 7 8 6 7 4 5 9 4 6 7 5 6 9 1 3 7 4 5
## [4537] 8 6 4 8 5 7 8 6 9 5 7 5 4 2 7 11 8 6 2 7 4 5 4 5
## [4561] 6 4 6 4 3 8 6 10 6 10 9 5 6 9 3 3 5 5 3 3 6 4 8 1
## [4585] 8 6 6 4 3 8 2 4 6 6 7 4 6 9 5 5 6 6 6 6 5 5 8 3
## [4609] 5 7 8 6 9 4 6 3 8 8 3 7 4 8 10 4 5 11 7 6 5 6 11 6
## [4633] 7 12 6 3 5 5 7 12 5 8 6 7 7 5 5 4 8 7 6 2 10 5 6 4
## [4657] 8 5 8 4 8 4 1 8 7 5 8 4 4 4 5 8 6 5 3 8 4 7 6 6
## [4681] 9 5 6 7 8 4 5 3 3 7 4 3 8 10 4 6 5 10 8 9 6 7 10 10
## [4705] 4 7 5 9 4 8 8 6 6 5 4 6 7 4 6 8 5 7 4 5 8 4 2 9
## [4729] 5 8 6 9 7 10 0 5 4 6 3 7 7 4 7 5 6 4 8 9 10 4 7 7
## [4753] 8 8 5 7 6 8 8 4 10 15 5 5 4 8 5 10 7 8 8 3 6 9 8 8
## [4777] 8 10 6 4 8 7 9 6 7 2 2 5 2 8 7 8 9 6 6 6 7 5 6 8
## [4801] 8 5 6 4 5 8 7 9 8 6 9 5 7 5 3 5 6 3 1 5 4 5 8 4
## [4825] 5 7 7 5 5 5 4 10 5 5 3 6 3 5 5 12 5 5 6 9 6 3 6 5
## [4849] 5 6 4 2 4 7 7 8 5 7 6 10 7 6 9 3 6 5 7 7 5 2 5 7
## [4873] 8 10 3 8 7 7 4 6 5 6 5 10 6 3 1 3 6 6 9 7 6 4 4 11
## [4897] 8 4 8 5 6 8 6 5 6 8 8 5 6 8 5 7 12 5 2 5 5 6 5 6
## [4921] 7 6 4 7 7 7 5 2 8 3 3 6 6 9 4 7 7 2 10 5 8 9 3 3
## [4945] 5 5 7 5 7 10 6 1 6 6 6 4 9 6 6 5 6 5 6 9 6 8 6 9
## [4969] 7 2 7 4 5 8 4 7 9 7 9 7 4 8 6 4 6 4 8 3 4 5 4 6
## [4993] 4 5 6 4 8 11 4 10a2=table(Covid)
a2## Covid
## 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
## 10 46 190 386 648 850 897 736 526 362 202 74 51 16 3 2 1a3=(a2/5000)*100
a3## Covid
## 0 1 2 3 4 5 6 7 8 9 10 11 12
## 0.20 0.92 3.80 7.72 12.96 17.00 17.94 14.72 10.52 7.24 4.04 1.48 1.02
## 13 14 15 16
## 0.32 0.06 0.04 0.02barplot(a3)
nterpretación: como bien se menciona en el ejercicio, solo 60 de los 1000 empleados están contagiados con Covid-19. Cuando tomamos una muestra=100 de esa población y realizamos la simulación 5000 veces se obtiene el resultado de que convergen a 6,aunque se puede observar que hay un grado de distanciamiento de los valores de distribución frente a su promedio de localización, indicando están muy alejados de la media.
## lo primero es crear la población ficticia: donde 300 (30%) son los empleados enfermos y 700 los que no.
calcularenfermos2= function(n){
empleados2=sample(c(rep("+",300),rep("-",700)))
#lo segundo es calcular el porcentaje real de enfermos
real2=(300/1000)*100
real2
##lo tercero es sacar una muestra de la población ficticia
muestra2 = sample(empleados2,size = n)
## lo cuarto es de esa muestra calcular los positivos(los enfermos de Covid-19)
enfermosmuestra2=sum(muestra2=="+")
return(enfermosmuestra2)
}
calcularenfermos2(n=100)## [1] 27Covid2=rep(NA,5000)
b1=for (i in 1:5000) {
Covid2[i]=calcularenfermos2(n=100)
}
Covid2## [1] 33 31 24 25 36 29 23 30 25 23 29 32 27 24 30 36 29 28 29 26 27 26 32 32
## [25] 25 32 31 29 37 38 31 24 33 36 36 29 27 34 31 37 33 28 27 29 28 36 31 31
## [49] 34 31 36 25 34 26 33 26 29 26 38 28 34 29 36 30 25 29 31 32 30 26 34 28
## [73] 24 28 34 29 28 24 33 30 34 24 31 33 30 28 22 31 28 28 33 41 25 30 24 28
## [97] 27 29 26 32 33 30 29 38 30 33 34 37 31 22 41 30 26 33 24 24 27 26 27 33
## [121] 25 34 30 21 36 34 24 30 25 25 28 34 34 28 34 35 31 29 30 29 29 33 31 40
## [145] 35 29 33 30 32 34 24 30 26 38 25 28 24 26 28 32 34 38 33 21 28 32 21 31
## [169] 26 31 29 32 36 36 27 31 35 22 33 23 29 24 31 30 24 28 31 37 27 27 26 31
## [193] 27 28 29 31 30 27 39 31 33 30 29 30 29 26 26 26 31 30 31 34 21 33 30 30
## [217] 31 28 21 28 26 24 35 28 31 22 29 22 24 31 29 29 33 32 25 25 32 25 28 31
## [241] 34 27 24 24 26 30 26 28 28 34 36 36 29 24 29 30 25 33 22 30 36 30 31 35
## [265] 23 30 32 35 31 30 23 26 41 28 42 30 30 25 33 29 30 31 32 32 23 33 26 28
## [289] 20 30 36 25 30 36 26 30 29 24 30 29 26 29 32 26 33 30 31 32 28 25 34 27
## [313] 33 31 26 35 34 30 36 28 33 29 25 35 28 38 35 34 37 29 31 35 27 33 26 33
## [337] 26 23 27 21 39 31 22 34 30 35 29 30 33 28 24 27 25 32 35 33 29 35 25 23
## [361] 29 30 35 29 36 29 28 28 36 28 33 27 23 33 37 28 25 33 25 19 23 32 28 28
## [385] 28 25 20 28 27 33 35 33 35 22 28 25 25 23 31 30 19 28 30 40 41 31 26 31
## [409] 26 37 34 32 31 24 29 27 31 27 30 28 32 28 24 31 27 39 32 33 28 27 29 27
## [433] 34 26 29 37 35 27 25 26 25 27 30 27 28 21 28 32 29 30 31 28 21 27 25 29
## [457] 27 40 24 32 27 27 22 27 30 28 32 24 27 26 29 32 36 27 35 35 31 24 28 33
## [481] 31 19 32 34 26 27 29 28 35 34 37 29 31 37 35 32 29 28 27 27 31 26 28 25
## [505] 25 25 30 31 34 26 25 33 24 32 27 38 31 31 32 31 23 30 27 33 30 28 19 28
## [529] 37 25 25 30 32 29 25 26 35 21 31 26 33 29 18 20 36 29 36 31 37 26 35 24
## [553] 33 20 34 32 33 26 38 31 29 29 33 35 27 28 22 28 28 37 29 34 19 29 33 25
## [577] 34 26 29 28 33 26 31 33 28 26 33 29 28 30 27 41 26 28 26 26 39 26 28 30
## [601] 31 31 24 29 33 32 31 27 31 27 17 24 27 32 28 31 27 32 31 31 27 34 33 30
## [625] 34 27 27 38 41 35 28 33 30 27 34 32 31 24 25 34 29 28 21 31 23 22 30 34
## [649] 29 32 28 26 29 29 34 32 29 26 23 36 33 26 31 31 29 33 30 31 33 33 27 35
## [673] 27 31 35 29 36 34 30 33 27 25 28 25 26 29 28 39 31 30 36 34 32 34 27 31
## [697] 28 23 24 29 31 29 26 24 32 27 32 28 27 37 29 25 26 30 37 34 21 33 26 34
## [721] 34 29 32 31 27 24 24 37 33 33 30 19 25 22 31 26 29 29 27 30 31 27 26 35
## [745] 26 26 28 32 32 33 26 25 33 31 31 36 29 29 32 26 31 31 30 23 31 32 36 25
## [769] 30 32 29 24 29 28 32 33 24 30 33 30 26 19 26 31 32 26 29 23 31 26 33 27
## [793] 28 28 31 31 30 27 29 33 32 31 28 38 36 27 32 39 36 30 33 28 29 38 30 29
## [817] 30 28 24 34 27 28 31 33 25 28 27 34 33 32 41 30 30 37 31 24 27 30 30 38
## [841] 32 28 33 35 28 32 28 32 24 26 26 40 32 27 23 25 27 31 34 27 32 22 28 31
## [865] 32 29 30 28 26 29 28 29 25 25 33 39 32 30 26 32 32 32 30 32 36 28 39 29
## [889] 31 32 33 34 33 28 26 24 25 28 35 34 39 31 30 30 31 30 25 33 31 39 25 28
## [913] 25 34 26 34 25 26 26 30 32 27 36 29 32 14 29 35 34 29 31 24 30 31 36 25
## [937] 30 29 32 25 35 22 33 35 34 25 33 23 22 30 24 33 33 34 26 31 31 27 36 29
## [961] 34 31 27 28 39 27 30 30 32 37 36 30 29 28 30 25 30 42 35 34 30 23 40 27
## [985] 30 25 31 32 34 31 37 30 31 36 19 31 35 33 27 32 32 29 33 25 26 31 20 26
## [1009] 34 29 20 22 37 24 26 28 36 31 33 35 31 28 27 22 23 28 28 40 30 27 30 31
## [1033] 39 33 40 29 26 25 30 27 36 28 31 35 26 30 27 27 27 33 30 31 41 35 25 25
## [1057] 32 25 30 35 34 27 28 26 34 41 34 29 26 27 30 32 31 37 27 26 24 29 35 30
## [1081] 38 33 23 36 29 33 32 31 36 34 19 26 33 25 34 33 26 29 30 27 38 31 37 30
## [1105] 30 37 31 28 33 33 24 31 30 34 27 28 26 31 33 28 31 30 33 25 29 29 24 27
## [1129] 24 27 24 35 25 29 29 27 22 37 38 24 30 32 28 25 32 34 28 29 37 30 31 28
## [1153] 30 33 29 25 28 34 28 31 22 30 26 32 30 27 26 32 28 33 26 29 28 28 26 32
## [1177] 25 26 24 33 25 32 36 26 27 36 35 34 29 35 30 25 32 31 34 32 22 32 28 34
## [1201] 27 27 31 33 21 35 39 22 34 26 38 30 44 30 36 24 37 33 25 29 36 24 34 28
## [1225] 37 32 33 29 33 27 28 32 32 41 33 35 24 27 32 36 24 27 35 38 34 19 29 27
## [1249] 26 36 31 30 34 20 27 29 31 32 31 28 28 36 31 32 34 29 32 27 27 28 34 32
## [1273] 30 40 26 26 30 23 32 27 23 27 35 20 27 27 30 29 30 32 37 32 22 32 34 30
## [1297] 23 32 28 29 26 37 21 28 26 26 28 27 34 33 23 33 26 22 31 35 36 31 26 33
## [1321] 32 34 30 30 38 33 31 32 36 21 31 32 32 31 20 38 23 33 27 42 34 34 30 42
## [1345] 33 37 29 30 33 29 21 25 38 34 23 22 29 27 25 26 26 31 31 32 30 31 32 28
## [1369] 32 29 35 33 33 36 24 27 30 29 28 25 32 36 28 27 28 28 23 32 31 24 34 33
## [1393] 27 35 28 37 26 29 29 31 33 24 25 29 28 30 21 30 26 34 29 34 36 32 31 22
## [1417] 26 32 32 35 31 33 25 25 29 31 23 31 34 26 31 29 30 25 35 22 31 31 19 27
## [1441] 33 28 27 33 27 29 35 28 25 25 25 26 27 33 25 30 29 27 30 27 34 34 33 31
## [1465] 34 29 24 31 32 31 17 31 29 36 37 31 30 26 32 33 35 35 37 21 32 36 29 23
## [1489] 23 30 31 25 28 23 31 20 21 28 32 32 18 30 19 31 32 40 29 26 33 30 29 37
## [1513] 34 26 27 28 30 21 29 31 28 29 27 28 34 23 29 24 32 34 24 31 27 34 35 31
## [1537] 26 26 26 39 30 30 32 32 25 27 30 24 29 33 37 35 32 34 34 27 29 28 33 25
## [1561] 29 28 28 29 31 23 28 28 29 34 27 31 32 29 31 33 32 29 38 27 24 28 31 33
## [1585] 34 33 28 32 26 31 31 22 37 20 32 29 36 29 40 26 23 27 20 27 25 34 29 22
## [1609] 33 33 28 40 30 29 33 28 40 26 27 26 33 32 29 32 24 33 24 22 39 27 25 31
## [1633] 25 29 23 39 26 39 28 28 22 24 30 28 34 32 31 30 25 32 31 29 30 31 29 28
## [1657] 30 24 27 34 33 33 27 24 24 24 29 37 36 30 24 27 31 25 33 38 32 31 32 29
## [1681] 33 28 28 27 26 33 36 33 31 27 30 32 25 33 32 31 27 28 29 30 39 28 33 40
## [1705] 29 29 30 33 24 32 29 28 28 31 29 30 28 32 37 23 31 30 20 35 24 25 29 29
## [1729] 29 30 31 33 33 25 32 34 35 35 27 32 33 35 22 28 25 31 26 30 32 35 26 26
## [1753] 25 31 32 22 28 37 27 27 29 37 30 34 33 30 38 31 32 22 30 30 36 33 30 38
## [1777] 32 34 32 35 28 36 32 32 26 19 32 38 29 27 33 38 25 36 27 26 32 34 28 36
## [1801] 30 22 31 40 30 32 26 28 30 27 28 30 31 36 33 37 37 29 34 22 28 36 38 23
## [1825] 29 34 30 41 30 36 28 28 34 28 35 32 35 39 24 27 30 29 27 28 29 26 32 22
## [1849] 32 29 40 25 28 38 26 24 30 25 27 29 29 25 25 29 26 32 35 24 34 33 37 28
## [1873] 28 30 23 33 30 35 32 32 26 34 32 31 32 25 27 30 25 34 32 31 31 33 33 28
## [1897] 27 35 27 29 28 25 30 32 26 24 26 33 36 33 26 23 33 29 26 34 39 29 30 29
## [1921] 44 38 32 36 29 32 23 28 29 23 30 29 35 26 30 28 32 26 30 31 32 31 32 29
## [1945] 25 33 28 34 36 21 22 34 31 29 31 35 31 32 26 31 30 40 36 25 37 27 26 24
## [1969] 33 32 25 32 29 32 30 31 23 21 27 29 21 30 25 25 33 31 28 28 29 35 17 33
## [1993] 26 32 35 39 32 30 29 31 29 20 27 24 32 36 20 30 26 30 25 26 35 34 31 25
## [2017] 22 30 28 32 22 27 28 28 31 24 33 31 19 29 31 35 34 34 27 28 29 24 30 30
## [2041] 30 31 28 30 28 29 31 23 36 31 28 31 31 25 26 27 31 23 25 28 22 19 30 31
## [2065] 28 23 35 23 24 26 30 27 36 25 32 27 29 30 30 37 29 30 29 30 34 34 28 32
## [2089] 25 30 17 24 31 32 29 30 36 29 33 31 26 36 32 27 29 29 36 31 31 23 38 34
## [2113] 28 32 30 25 25 24 32 39 31 36 26 27 33 27 31 31 38 29 40 35 28 26 30 26
## [2137] 34 30 34 28 35 28 28 27 34 28 31 32 34 35 34 22 41 30 29 32 37 33 29 31
## [2161] 24 28 24 30 35 25 35 32 36 40 25 29 22 29 26 26 29 25 36 28 30 29 31 27
## [2185] 20 32 28 28 36 34 27 28 30 28 36 32 33 24 26 32 25 29 24 33 32 32 33 30
## [2209] 37 29 26 29 36 31 26 27 32 35 20 26 36 33 31 31 35 24 26 18 24 33 29 27
## [2233] 26 35 37 28 25 31 31 26 27 38 27 35 27 30 28 31 31 33 25 28 29 27 27 33
## [2257] 30 27 34 36 26 26 37 26 26 26 28 36 24 30 27 28 31 30 30 29 36 33 29 30
## [2281] 26 32 24 31 31 36 37 32 35 25 33 31 28 26 33 38 41 33 34 25 29 25 27 28
## [2305] 25 36 33 33 26 31 24 32 24 36 30 22 33 31 27 28 20 29 33 36 25 26 30 32
## [2329] 33 30 28 39 31 28 27 34 30 28 35 22 35 32 26 29 32 28 32 26 35 30 37 35
## [2353] 29 30 27 27 32 26 33 33 29 29 34 27 34 31 26 31 32 34 32 35 31 27 20 28
## [2377] 29 26 36 32 37 38 27 27 32 29 30 29 37 31 29 38 33 33 26 39 27 24 21 28
## [2401] 30 32 26 31 35 29 34 31 28 22 28 29 32 32 36 33 30 37 37 31 27 28 35 31
## [2425] 32 32 35 30 32 29 45 26 28 35 31 33 28 27 31 30 40 27 34 31 31 32 40 29
## [2449] 29 32 29 31 32 30 27 42 26 30 34 32 35 30 30 24 26 28 32 38 28 33 32 38
## [2473] 32 29 29 31 29 35 29 33 39 22 33 31 18 28 30 28 32 27 36 34 31 30 27 22
## [2497] 32 31 32 20 23 30 31 36 30 28 27 26 35 33 27 34 30 33 33 30 31 36 33 23
## [2521] 30 26 31 29 27 31 34 28 30 29 25 26 33 35 32 26 35 28 30 27 31 35 34 30
## [2545] 29 33 27 22 28 26 38 32 25 31 29 31 23 36 31 33 42 32 35 25 32 30 27 29
## [2569] 36 31 33 33 24 36 28 30 27 32 24 31 29 27 34 29 28 34 31 23 33 32 33 34
## [2593] 31 31 28 29 27 30 27 28 33 32 28 27 24 38 28 32 40 36 30 29 27 21 27 29
## [2617] 30 31 23 28 31 32 30 24 29 31 32 27 32 26 26 34 22 37 28 30 31 24 23 33
## [2641] 29 28 29 35 32 33 30 27 35 31 31 28 36 36 26 40 32 25 22 26 29 31 28 34
## [2665] 32 34 20 26 27 25 29 34 31 27 31 32 27 29 29 32 22 34 30 29 25 26 33 32
## [2689] 39 31 26 34 30 32 29 34 25 27 29 27 29 27 28 38 35 31 23 33 32 31 31 26
## [2713] 30 29 24 35 26 36 37 33 30 32 30 37 29 34 39 31 34 20 30 24 31 33 32 18
## [2737] 33 25 31 27 32 27 27 32 26 38 30 29 24 27 33 25 29 33 37 27 37 30 32 31
## [2761] 34 28 27 31 31 35 22 28 27 32 28 33 38 37 23 31 31 28 28 31 26 32 26 24
## [2785] 27 30 34 28 30 32 24 27 23 36 27 27 31 31 33 30 23 31 30 30 45 29 31 33
## [2809] 20 27 37 35 34 25 31 38 23 29 29 14 26 25 22 30 35 29 31 35 34 34 26 32
## [2833] 18 25 30 27 29 30 29 22 34 18 32 26 36 34 27 34 25 27 34 38 34 30 27 25
## [2857] 28 37 22 45 29 31 27 22 32 30 29 29 30 20 31 25 28 24 31 33 29 36 28 28
## [2881] 26 27 28 24 30 33 33 31 32 35 29 33 30 30 34 25 29 30 27 23 28 27 36 30
## [2905] 29 37 36 29 33 36 26 38 26 28 26 28 35 22 26 25 35 30 25 30 26 22 37 29
## [2929] 31 26 34 21 28 35 28 25 27 31 35 25 19 34 31 28 32 33 26 31 36 26 30 33
## [2953] 23 32 26 30 33 25 27 33 32 37 35 30 33 33 30 25 26 28 30 28 27 30 31 34
## [2977] 33 27 32 35 32 37 34 31 29 27 32 33 23 26 20 27 31 23 30 30 36 36 24 28
## [3001] 25 31 32 20 26 31 34 33 30 22 27 37 29 29 26 31 34 28 35 33 33 24 29 19
## [3025] 31 35 22 24 29 34 22 37 31 32 38 28 17 29 22 33 36 36 28 30 25 24 29 29
## [3049] 28 30 29 33 29 24 25 26 31 26 31 32 32 35 28 24 36 31 27 36 21 30 36 28
## [3073] 31 28 31 34 30 27 31 33 27 28 29 24 31 26 28 30 33 29 21 26 32 31 35 30
## [3097] 23 31 30 29 35 22 39 23 31 36 36 26 41 40 25 38 31 31 30 29 27 34 24 37
## [3121] 29 29 26 35 32 31 24 36 33 31 34 31 33 33 27 34 32 28 30 32 26 30 17 22
## [3145] 33 26 27 25 36 26 35 37 36 32 33 27 35 33 28 27 26 35 33 28 34 28 24 32
## [3169] 30 30 22 33 24 31 36 30 26 29 21 30 34 27 25 25 34 29 31 26 31 36 35 27
## [3193] 32 29 31 27 32 29 31 35 30 30 36 30 25 28 32 28 25 32 29 38 29 33 37 41
## [3217] 36 33 30 31 28 34 26 24 37 26 27 33 29 27 28 35 32 17 30 33 24 28 28 32
## [3241] 32 27 31 28 32 26 27 25 23 30 35 32 34 27 34 33 32 30 22 33 26 35 34 28
## [3265] 32 31 30 29 31 33 28 27 28 32 34 29 28 36 34 29 39 30 26 26 26 32 34 27
## [3289] 29 36 32 27 23 27 30 25 31 23 30 35 33 32 31 27 30 30 33 34 30 27 28 29
## [3313] 34 36 24 27 33 37 27 26 27 35 27 34 23 31 34 30 28 31 36 30 36 37 31 25
## [3337] 16 29 29 37 34 29 32 27 31 31 22 32 33 27 30 38 29 37 24 37 33 34 29 30
## [3361] 31 29 32 33 36 42 35 21 40 23 33 30 30 31 28 32 39 30 31 34 29 34 21 30
## [3385] 31 31 33 40 36 23 25 33 29 28 29 30 27 33 33 31 28 35 26 26 35 36 20 40
## [3409] 35 37 36 29 29 23 30 36 20 32 35 31 32 25 32 16 33 26 31 31 34 31 32 27
## [3433] 36 31 27 27 24 30 35 27 32 30 32 27 27 31 26 30 34 31 33 24 30 31 26 33
## [3457] 38 31 38 37 32 28 37 35 36 28 33 31 34 29 27 30 34 44 33 26 28 30 34 29
## [3481] 27 26 36 31 28 34 32 32 25 30 32 29 28 27 28 32 30 31 31 25 29 34 35 33
## [3505] 33 32 23 30 26 25 30 28 26 32 27 31 32 30 31 38 28 31 37 32 32 34 32 27
## [3529] 35 21 34 27 37 25 35 36 33 31 35 27 35 28 30 29 32 26 35 35 27 24 36 26
## [3553] 33 30 33 29 30 32 37 28 33 32 26 31 26 35 33 41 32 31 23 36 26 26 23 32
## [3577] 32 30 27 33 33 30 26 29 28 27 26 27 31 29 29 34 25 15 26 30 34 28 24 24
## [3601] 30 31 41 24 34 35 30 24 33 34 32 28 26 28 29 32 27 31 36 23 38 29 28 29
## [3625] 29 27 36 29 35 29 28 29 25 34 32 36 32 26 23 36 26 27 37 31 31 31 36 34
## [3649] 29 31 29 30 27 25 34 32 33 29 31 32 18 26 28 27 27 33 26 33 30 25 25 36
## [3673] 32 33 25 24 27 29 22 29 26 36 29 30 24 32 36 34 25 34 38 29 30 31 32 33
## [3697] 27 31 26 34 26 33 22 30 32 32 26 30 30 28 27 32 27 33 31 26 31 26 37 33
## [3721] 36 29 30 31 41 26 33 24 32 34 34 22 22 28 28 31 32 32 27 23 25 22 33 34
## [3745] 27 30 36 31 28 32 27 29 35 29 27 28 26 28 25 28 33 27 29 30 29 25 46 25
## [3769] 28 29 30 26 30 30 25 34 33 25 25 28 30 24 23 23 27 25 23 25 26 28 24 31
## [3793] 26 35 34 32 30 39 26 36 27 29 36 33 40 29 29 25 30 32 26 36 35 22 37 31
## [3817] 31 38 25 28 36 25 29 31 34 37 32 38 36 24 24 33 31 25 31 32 28 24 32 25
## [3841] 23 29 32 24 31 25 26 24 34 25 25 33 43 30 31 32 30 27 32 26 34 29 30 36
## [3865] 26 40 29 25 31 25 27 31 30 32 37 19 33 36 32 26 32 23 26 25 34 20 29 37
## [3889] 28 34 24 19 27 29 27 32 31 27 32 25 39 33 38 28 36 29 30 28 33 28 30 26
## [3913] 30 28 25 29 30 22 36 28 29 30 40 32 33 27 20 40 30 31 28 30 31 26 30 33
## [3937] 28 39 29 27 30 31 28 37 24 35 26 29 26 31 38 26 32 29 27 28 24 42 34 38
## [3961] 27 30 34 31 30 27 31 31 34 29 23 25 29 27 26 18 32 25 25 30 31 28 31 27
## [3985] 29 27 28 31 29 33 42 37 34 30 30 34 30 32 36 36 28 32 30 26 31 31 27 26
## [4009] 31 39 30 31 34 34 27 33 35 26 29 29 32 31 29 29 30 34 23 36 30 29 27 31
## [4033] 37 31 32 32 32 26 30 30 25 34 32 37 32 32 30 35 28 36 27 41 30 29 30 26
## [4057] 34 27 29 31 29 34 36 34 24 27 31 28 32 25 33 26 30 29 27 34 30 32 27 29
## [4081] 30 34 34 29 24 34 32 34 30 28 32 35 26 31 29 33 38 32 30 29 31 27 36 33
## [4105] 28 34 26 33 26 32 27 31 28 26 34 35 28 26 33 29 33 27 32 30 29 29 29 23
## [4129] 32 31 28 27 28 30 30 30 27 25 28 32 33 28 42 26 22 27 32 27 28 23 37 26
## [4153] 26 28 35 35 25 36 34 33 42 32 25 31 31 26 29 29 23 31 31 33 29 32 27 33
## [4177] 25 35 24 30 33 36 25 30 39 26 22 30 29 29 29 31 41 28 21 31 38 28 33 31
## [4201] 32 25 32 32 30 36 35 31 25 28 30 39 31 29 33 35 27 30 27 36 26 27 34 35
## [4225] 28 28 22 31 34 29 26 27 36 28 30 28 23 33 33 27 34 24 26 34 27 31 24 32
## [4249] 28 31 30 36 25 29 37 29 29 23 26 33 25 31 37 29 23 29 39 33 25 29 29 26
## [4273] 33 30 32 20 29 29 27 30 25 35 34 21 24 33 25 33 29 32 33 30 35 26 34 31
## [4297] 29 34 30 23 31 27 29 29 33 37 24 27 37 32 33 27 28 29 27 30 36 29 28 33
## [4321] 33 26 26 33 30 35 27 32 35 31 23 30 32 27 27 18 36 31 23 30 34 27 29 28
## [4345] 31 32 27 28 29 32 40 31 28 35 29 35 33 29 35 28 27 28 30 30 29 22 24 32
## [4369] 28 36 34 36 26 30 28 24 35 31 34 35 36 27 25 24 25 28 26 33 29 28 32 26
## [4393] 25 26 31 33 38 28 32 31 28 29 31 28 42 39 29 29 33 30 31 27 26 29 37 31
## [4417] 25 31 26 34 33 27 25 27 28 37 32 34 33 35 34 30 31 28 28 28 27 35 25 36
## [4441] 37 29 32 32 28 37 40 26 28 35 27 30 26 27 33 35 28 26 29 29 28 29 35 38
## [4465] 28 34 29 33 31 23 27 28 26 34 33 35 31 30 30 27 26 20 28 32 29 25 27 23
## [4489] 24 26 27 32 29 28 29 28 28 35 27 30 30 32 30 27 31 30 29 22 30 32 32 24
## [4513] 24 27 34 30 31 37 31 32 24 31 26 29 29 32 33 24 25 22 29 38 27 31 37 38
## [4537] 28 28 30 24 32 29 29 26 40 38 24 23 25 31 29 30 32 34 32 34 26 22 30 30
## [4561] 30 42 32 38 28 29 44 30 38 27 31 32 33 25 29 28 31 28 29 24 26 33 26 33
## [4585] 34 27 30 31 25 36 29 24 34 28 33 33 26 31 36 27 36 27 30 34 35 32 32 34
## [4609] 27 31 37 27 34 26 29 35 29 30 25 30 27 25 25 30 35 36 31 31 31 18 26 29
## [4633] 25 24 32 23 26 21 26 34 29 31 26 28 25 23 22 27 40 37 29 33 27 30 30 22
## [4657] 33 29 31 23 25 32 34 31 30 28 34 27 33 26 29 33 39 28 35 27 30 36 27 39
## [4681] 33 31 33 28 31 28 16 31 35 31 34 33 37 29 33 29 25 38 41 24 28 26 38 28
## [4705] 27 30 22 29 29 30 35 24 26 35 32 28 29 28 29 24 34 30 27 26 28 30 30 29
## [4729] 32 27 26 33 36 31 27 31 32 29 31 33 38 37 22 31 26 24 26 30 35 31 34 32
## [4753] 37 20 34 20 30 30 27 24 33 28 26 33 32 28 35 25 28 23 32 25 25 31 33 35
## [4777] 32 36 38 27 29 30 28 32 27 31 28 30 35 38 28 27 30 32 27 35 29 28 23 34
## [4801] 27 30 33 28 30 30 29 31 31 36 28 27 32 27 32 29 35 29 32 29 37 28 35 30
## [4825] 27 31 28 32 28 20 26 31 34 26 34 27 26 35 30 28 36 27 28 23 35 26 23 30
## [4849] 32 34 33 23 32 30 29 28 34 38 39 28 28 31 34 26 26 23 37 27 27 33 29 32
## [4873] 29 35 34 31 33 39 24 34 37 22 23 25 30 35 35 23 29 34 24 29 32 29 24 31
## [4897] 25 28 28 28 31 35 28 30 25 29 25 31 28 28 26 31 38 27 35 29 26 33 31 32
## [4921] 21 17 31 29 27 34 29 32 28 26 32 28 30 27 28 27 31 35 38 30 29 29 28 28
## [4945] 25 27 34 30 38 33 32 25 21 26 30 34 33 17 27 31 39 28 30 30 40 27 24 28
## [4969] 28 32 31 26 27 30 28 31 32 35 31 26 31 24 38 33 21 30 33 26 34 40 38 28
## [4993] 30 29 34 30 30 24 30 34b2=table(Covid2)
b2## Covid2
## 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
## 2 1 3 9 11 19 35 37 86 109 174 240 341 391 420 455 459 471 408 349
## 34 35 36 37 38 39 40 41 42 43 44 45 46
## 281 202 183 113 79 43 36 21 13 1 4 3 1b3=(b2/5000)*100
b3## Covid2
## 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
## 0.04 0.02 0.06 0.18 0.22 0.38 0.70 0.74 1.72 2.18 3.48 4.80 6.82 7.82 8.40 9.10
## 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45
## 9.18 9.42 8.16 6.98 5.62 4.04 3.66 2.26 1.58 0.86 0.72 0.42 0.26 0.02 0.08 0.06
## 46
## 0.02barplot(b3)
Interpretación: al realizar la simulación 5000 veces con una muestra de 100 de la población y un número de contagiados de 300, se obtiene el resultado que convergen a un valor distinto, en lugar de 30% como se planteaba incialmente.