library(ggplot2)
library(pander)
library(gtools)
# Creamos la función
Enfermos_C19= function(n){
Muestra=sample(c(rep("+",60),rep("-",940)))
#Población Enferma
real=60/1000*100
real
Positivos_muestra = sample(Muestra,size = n)
#calculamos los enfermos de la muestra
Positivos_calculados = sum(Positivos_muestra=="+")
return(Positivos_calculados)
}
Enfermos_C19(n=100)
## [1] 6
# Ahora hacemos la simulación:
SUM = rep(NA,5000)
for(i in 1:5000){
SUM[i]= Enfermos_C19(n=100)
}
SUM
## [1] 7 11 10 8 6 7 9 6 6 5 8 5 1 6 6 4 8 8 9 2 5 5 7 8
## [25] 4 9 7 6 5 8 6 13 2 8 6 5 6 7 5 5 9 6 7 5 4 6 7 5
## [49] 12 7 6 5 6 5 10 6 4 7 6 6 5 3 6 6 2 6 7 2 5 13 4 6
## [73] 4 8 6 4 5 8 8 7 2 1 7 8 7 10 4 8 5 3 6 5 4 6 4 4
## [97] 12 7 6 5 5 5 5 7 3 7 8 4 6 3 9 7 5 3 7 6 2 11 5 9
## [121] 6 6 6 10 9 4 4 4 9 2 5 7 7 7 3 10 8 5 7 10 2 4 9 7
## [145] 3 3 6 5 3 8 4 12 4 4 8 6 5 3 7 10 5 7 9 4 5 6 7 8
## [169] 9 3 6 3 11 8 7 9 7 5 9 8 6 6 8 4 6 8 5 5 6 8 6 8
## [193] 4 10 5 5 4 4 7 8 8 8 4 8 8 3 5 7 7 10 8 6 6 5 6 3
## [217] 5 7 9 4 3 5 6 4 3 4 5 6 6 6 4 10 10 5 5 7 6 4 5 7
## [241] 6 2 6 7 4 5 4 4 2 7 4 5 7 8 6 7 2 2 8 6 5 9 9 8
## [265] 7 5 7 5 9 4 10 5 14 4 6 11 5 3 5 6 8 6 7 6 4 5 5 6
## [289] 4 5 7 4 5 4 6 4 7 8 3 1 8 9 6 6 2 7 3 2 2 2 2 5
## [313] 10 7 7 7 5 2 7 3 6 4 6 10 4 3 6 6 4 8 9 6 6 7 5 6
## [337] 10 6 7 9 6 6 5 7 6 4 5 4 6 6 8 10 7 6 6 5 3 7 5 4
## [361] 5 4 1 5 7 6 10 6 6 5 3 1 4 5 10 7 7 9 6 4 4 4 6 9
## [385] 8 3 4 7 7 10 3 8 6 4 7 8 6 4 5 8 5 6 8 3 5 3 3 5
## [409] 8 7 12 9 6 6 7 4 10 3 5 3 6 7 9 5 4 6 3 8 5 6 11 5
## [433] 8 2 5 7 7 6 3 4 5 5 5 8 6 3 6 4 7 5 4 7 4 7 8 6
## [457] 6 4 5 8 5 8 7 6 7 8 2 9 10 2 10 5 6 11 5 6 5 9 5 5
## [481] 14 8 5 4 8 10 7 7 2 8 7 6 4 5 6 12 7 2 8 7 3 4 6 5
## [505] 7 7 7 6 5 7 6 9 8 7 4 6 7 10 4 7 7 3 7 6 4 6 5 4
## [529] 10 7 4 4 1 7 5 4 7 7 7 8 2 5 8 2 3 6 5 7 4 5 4 6
## [553] 7 2 2 3 4 8 5 10 1 3 4 5 5 5 5 5 3 6 5 5 3 8 7 10
## [577] 2 3 6 5 8 7 6 8 5 9 3 12 3 3 5 6 7 8 4 4 5 7 7 5
## [601] 5 4 6 6 5 7 5 4 8 7 3 7 6 3 3 10 9 3 6 5 4 10 6 5
## [625] 5 4 6 4 5 10 7 6 10 3 4 8 6 6 5 8 2 8 6 6 5 5 9 4
## [649] 3 4 4 4 5 7 8 5 12 2 8 5 8 4 3 4 5 2 6 10 4 3 8 4
## [673] 6 4 1 4 10 6 7 10 5 6 5 9 8 6 8 5 6 9 7 4 8 2 7 8
## [697] 7 9 5 6 2 5 7 5 4 6 5 10 5 5 4 5 8 3 8 6 7 6 6 3
## [721] 3 5 5 7 5 5 6 5 3 7 7 9 8 4 5 1 2 5 8 8 9 6 9 7
## [745] 6 4 7 6 10 3 6 7 4 7 11 7 5 9 5 2 8 5 5 11 4 2 8 8
## [769] 7 6 1 6 1 1 5 6 7 3 5 6 5 8 3 6 5 7 2 6 8 11 6 5
## [793] 7 6 7 5 6 4 6 6 4 5 9 6 4 5 4 6 5 8 10 9 5 6 5 7
## [817] 5 3 9 5 6 6 6 10 4 8 3 3 4 4 4 10 3 6 10 10 5 7 4 4
## [841] 6 2 4 8 11 7 4 9 6 1 5 7 6 5 4 10 2 3 4 6 6 7 7 7
## [865] 1 7 3 5 5 7 4 9 5 5 4 8 8 8 6 5 8 10 6 6 8 8 11 8
## [889] 7 4 8 3 8 4 10 6 5 6 5 4 6 5 6 4 2 7 4 6 9 2 5 5
## [913] 5 6 6 7 4 8 8 1 6 9 6 4 6 5 7 4 4 7 9 4 7 5 9 8
## [937] 10 6 6 6 6 10 6 7 3 6 5 7 4 6 4 5 3 3 7 5 5 7 6 11
## [961] 7 8 7 4 4 5 10 6 9 5 8 5 6 6 5 2 6 5 5 7 4 6 7 3
## [985] 4 8 6 7 5 8 7 6 9 5 5 6 2 4 11 3 7 6 3 9 9 7 6 3
## [1009] 4 5 8 4 4 9 3 3 4 2 8 3 8 3 10 6 4 10 3 6 5 4 10 4
## [1033] 4 7 5 5 6 11 6 10 6 8 8 4 5 7 7 13 9 5 6 4 4 4 7 6
## [1057] 3 5 2 3 5 10 4 6 4 4 4 3 6 6 8 8 7 8 4 3 6 3 6 5
## [1081] 5 7 4 2 10 5 10 5 8 11 8 5 8 3 9 4 5 3 4 6 4 5 5 6
## [1105] 5 4 3 4 9 5 4 7 4 9 9 6 4 3 4 5 5 7 7 6 8 9 3 9
## [1129] 6 5 2 8 5 6 8 3 7 6 4 3 4 6 5 7 6 9 4 6 5 5 3 5
## [1153] 7 7 9 9 6 4 8 6 5 5 5 9 5 6 5 11 6 9 7 8 7 7 7 6
## [1177] 4 7 5 6 7 8 7 7 6 4 2 9 6 6 10 6 3 7 4 7 5 5 11 4
## [1201] 6 4 8 5 6 6 9 6 6 6 8 7 4 6 6 6 3 4 11 5 3 5 9 4
## [1225] 6 9 8 4 8 7 5 8 6 5 7 11 7 8 4 7 2 7 5 6 5 4 6 4
## [1249] 6 3 10 6 5 6 4 5 7 5 2 6 5 9 6 7 5 5 4 3 8 7 6 7
## [1273] 9 4 6 8 3 4 10 4 5 3 7 4 8 6 6 6 6 10 6 6 5 8 4 4
## [1297] 4 8 8 4 3 3 4 4 8 9 7 6 5 6 7 9 5 4 7 4 12 9 4 5
## [1321] 10 5 8 6 9 3 10 6 10 6 5 4 8 3 6 6 7 5 6 8 6 2 11 5
## [1345] 5 7 2 4 6 9 5 5 8 8 7 8 7 10 10 7 7 8 7 10 6 10 4 8
## [1369] 4 5 6 8 5 7 6 7 10 6 3 4 6 5 5 2 5 9 6 5 9 4 5 7
## [1393] 5 8 1 8 8 2 2 6 6 7 13 8 4 6 1 7 6 8 7 5 9 9 9 5
## [1417] 7 4 6 7 6 2 8 2 5 3 6 6 7 6 7 2 9 9 6 4 11 6 8 10
## [1441] 9 6 4 4 6 7 6 5 8 5 3 10 5 7 9 10 5 4 5 8 5 11 4 7
## [1465] 6 6 10 5 10 8 9 6 9 4 6 5 7 8 6 7 8 2 7 5 4 4 2 6
## [1489] 6 5 5 5 4 8 4 7 6 4 10 10 3 6 6 3 8 8 3 4 9 10 10 9
## [1513] 5 4 9 7 6 7 7 3 5 6 5 6 6 10 5 8 4 3 7 6 5 8 7 7
## [1537] 5 5 7 9 6 6 6 5 5 2 3 8 6 6 5 3 8 4 5 5 5 3 10 4
## [1561] 4 7 7 2 12 4 10 7 3 5 9 6 7 4 7 5 3 7 11 3 4 4 6 7
## [1585] 7 5 4 6 7 2 5 6 6 12 9 5 10 3 3 3 4 8 8 2 4 7 10 10
## [1609] 6 7 9 5 5 5 6 3 6 9 2 7 6 6 5 4 8 5 7 1 6 8 5 7
## [1633] 8 9 8 2 4 4 7 4 6 6 4 6 7 2 7 6 4 5 9 5 8 4 3 3
## [1657] 7 10 7 5 4 4 3 4 3 4 8 3 1 4 7 8 4 6 6 8 4 6 6 3
## [1681] 3 6 8 5 7 7 9 3 5 5 4 11 7 6 7 10 8 2 5 6 8 6 7 12
## [1705] 2 5 9 4 4 3 7 5 3 10 6 6 5 2 8 9 4 7 6 6 10 5 8 3
## [1729] 5 4 8 6 7 8 9 6 5 2 4 4 4 8 7 11 6 6 8 6 7 6 4 7
## [1753] 3 5 5 7 4 10 10 2 4 6 3 6 6 3 7 3 8 5 4 1 7 5 3 7
## [1777] 5 8 9 3 3 6 8 4 4 8 4 5 5 4 3 6 7 8 8 6 9 9 5 2
## [1801] 5 6 4 7 5 6 13 5 8 5 6 6 7 4 6 3 9 6 6 5 8 5 7 6
## [1825] 4 5 4 6 11 5 11 6 5 5 5 6 5 4 3 3 4 7 11 8 8 4 9 9
## [1849] 4 3 2 7 7 6 5 5 5 2 8 6 6 6 5 7 3 8 3 4 5 8 7 5
## [1873] 7 6 6 9 7 10 4 7 10 7 5 5 7 5 6 4 2 6 3 7 8 7 10 7
## [1897] 5 6 4 7 5 9 5 11 6 7 5 6 3 6 6 8 6 8 4 5 5 3 9 5
## [1921] 7 9 10 6 9 5 6 7 7 4 4 4 5 2 5 10 8 5 7 9 5 9 6 5
## [1945] 7 6 7 6 2 6 3 6 5 6 9 6 4 4 2 6 4 5 6 6 3 6 9 5
## [1969] 7 8 3 5 10 8 6 2 7 7 8 3 6 5 7 3 7 7 5 6 5 4 8 5
## [1993] 6 2 6 5 8 5 8 4 3 5 6 11 5 4 5 2 9 9 3 4 7 5 7 10
## [2017] 8 7 10 8 3 3 6 3 8 6 7 8 6 4 4 5 5 5 5 1 8 6 8 7
## [2041] 4 5 7 6 8 4 6 7 6 6 5 3 6 10 9 4 9 7 9 7 7 2 7 7
## [2065] 6 5 5 3 6 7 7 6 3 7 10 9 5 9 9 8 10 4 5 5 8 8 5 8
## [2089] 5 2 5 5 6 10 9 9 7 0 10 8 5 13 6 5 8 5 11 6 6 3 7 5
## [2113] 6 7 5 4 9 9 6 6 6 10 6 9 3 5 3 4 3 3 6 6 9 7 7 7
## [2137] 9 6 6 8 7 9 4 4 10 6 5 6 4 4 6 7 3 6 5 6 10 2 4 4
## [2161] 2 6 5 4 5 4 3 4 4 4 4 7 5 7 7 9 3 3 7 6 6 9 7 5
## [2185] 4 7 10 3 3 5 6 12 5 8 7 3 8 11 5 9 5 8 5 8 4 8 2 6
## [2209] 10 5 4 6 5 8 5 7 6 6 3 8 5 4 9 6 6 2 7 7 6 4 8 6
## [2233] 6 7 7 5 10 4 5 5 8 3 10 5 8 3 3 4 7 4 7 5 8 6 9 8
## [2257] 2 8 6 7 8 5 6 5 10 5 8 7 5 9 7 8 5 5 3 5 7 7 6 8
## [2281] 8 8 5 8 3 6 5 5 8 4 5 6 7 7 6 5 2 10 8 6 7 5 10 8
## [2305] 7 8 8 6 12 10 7 7 5 4 6 3 8 8 4 6 8 8 9 9 5 1 3 7
## [2329] 1 9 8 6 5 6 4 10 8 5 7 7 3 7 8 8 9 9 5 5 6 4 5 3
## [2353] 6 3 8 6 5 1 6 7 2 3 8 5 9 2 4 8 6 5 7 9 6 7 3 7
## [2377] 6 6 9 6 3 6 6 8 4 3 6 6 10 6 10 5 5 4 3 2 5 4 2 6
## [2401] 9 2 4 9 12 5 6 9 7 5 3 5 0 5 6 6 3 6 3 8 8 3 5 5
## [2425] 2 5 4 6 8 4 7 8 7 6 10 6 6 4 7 5 7 4 4 6 8 10 5 4
## [2449] 8 5 3 6 6 6 9 1 9 3 7 6 11 7 9 4 4 2 4 5 4 4 3 12
## [2473] 7 8 4 6 7 3 6 7 1 7 7 3 8 8 5 1 10 7 9 8 10 2 3 6
## [2497] 7 4 11 5 7 1 6 4 9 7 3 6 5 7 5 4 4 2 6 9 4 7 5 6
## [2521] 4 4 5 7 9 9 1 5 3 9 9 3 12 4 6 8 10 7 9 5 6 6 5 4
## [2545] 5 2 6 10 7 7 9 8 6 4 3 6 11 6 14 7 5 8 14 9 2 6 0 5
## [2569] 7 4 5 9 5 5 4 4 5 4 4 5 5 7 8 6 7 5 9 9 5 2 11 7
## [2593] 9 4 3 4 4 5 5 5 6 3 6 11 7 7 4 9 7 4 6 7 7 7 2 9
## [2617] 6 10 8 9 4 10 9 8 7 1 7 8 2 5 7 4 3 6 2 6 5 6 5 7
## [2641] 4 1 8 7 5 7 7 4 4 4 9 7 6 4 10 6 5 3 6 8 9 8 6 6
## [2665] 3 6 8 2 4 6 5 6 6 3 8 8 11 5 6 6 5 8 6 7 5 6 5 3
## [2689] 6 5 11 4 5 4 3 5 10 8 5 3 3 6 3 5 4 9 7 3 4 4 8 4
## [2713] 5 6 6 4 4 5 5 7 6 4 4 6 9 1 5 4 10 5 8 8 9 4 9 4
## [2737] 8 5 7 4 6 7 4 9 3 7 6 4 10 5 9 4 5 6 5 5 9 10 8 8
## [2761] 5 10 5 7 5 5 3 5 3 9 8 8 8 6 4 3 9 3 4 4 5 5 6 5
## [2785] 5 4 9 4 6 4 5 5 9 4 6 4 7 5 9 8 5 8 6 8 3 3 2 9
## [2809] 6 5 7 4 3 8 5 4 10 3 12 5 7 4 4 4 6 3 5 9 11 11 4 3
## [2833] 4 8 6 4 9 6 10 8 5 6 6 7 5 3 4 4 5 6 5 7 7 6 5 1
## [2857] 4 8 4 7 3 7 6 4 7 1 8 3 6 9 8 10 7 4 6 9 6 8 2 1
## [2881] 3 7 4 5 7 5 4 7 6 2 8 9 9 2 8 9 5 6 3 8 6 5 3 9
## [2905] 5 5 3 4 6 6 8 5 5 9 7 7 6 8 8 6 5 7 6 5 8 6 7 6
## [2929] 7 7 7 6 5 7 4 10 4 10 9 4 9 7 6 7 2 4 6 3 7 10 7 4
## [2953] 10 5 5 10 4 5 8 7 7 7 6 3 6 7 6 5 5 9 3 3 6 5 5 7
## [2977] 2 4 6 6 8 10 6 8 6 4 7 2 9 3 4 8 4 6 1 5 8 7 6 4
## [3001] 2 9 4 7 5 5 7 7 4 5 8 2 3 7 9 6 5 5 6 5 8 11 7 5
## [3025] 6 5 7 8 5 6 6 5 9 9 8 11 4 9 10 3 7 5 6 5 6 8 4 7
## [3049] 9 4 7 8 7 7 4 5 4 12 6 3 7 5 1 3 5 3 1 8 3 1 3 2
## [3073] 5 5 7 4 5 4 4 5 7 11 4 8 7 10 5 3 7 7 6 6 6 7 5 7
## [3097] 9 6 5 7 9 5 5 6 5 7 6 6 5 9 7 9 6 3 7 4 6 3 4 6
## [3121] 7 7 8 7 8 4 6 4 10 4 7 8 6 6 9 4 6 10 5 8 11 9 3 8
## [3145] 7 6 6 3 10 6 7 5 7 10 11 7 2 5 5 7 8 8 3 6 4 6 4 4
## [3169] 8 6 9 4 4 2 4 7 8 8 7 9 4 6 6 4 8 7 8 8 7 7 5 8
## [3193] 7 5 9 6 7 5 5 6 8 3 10 5 3 5 8 7 7 6 6 4 6 6 6 3
## [3217] 7 8 6 8 1 2 4 7 7 4 10 4 5 2 2 4 7 4 4 4 5 10 8 5
## [3241] 2 13 7 7 3 6 9 7 5 6 6 8 4 8 9 4 4 10 5 6 6 0 9 4
## [3265] 8 2 2 4 5 6 5 6 5 4 5 7 8 7 5 8 6 4 5 5 2 4 3 3
## [3289] 8 7 9 3 8 10 7 4 11 6 5 5 5 6 12 7 4 3 6 7 4 4 5 5
## [3313] 6 4 5 10 4 5 6 3 5 6 7 9 10 6 9 5 10 6 8 8 8 5 4 7
## [3337] 2 7 8 5 7 6 11 6 4 3 6 4 9 3 11 3 6 7 5 2 3 6 6 10
## [3361] 5 7 6 6 2 5 4 4 4 12 8 8 7 5 2 6 10 3 7 7 3 5 8 9
## [3385] 8 4 5 8 6 7 8 8 9 7 6 8 3 5 6 8 6 6 3 8 8 6 6 8
## [3409] 6 3 6 8 7 6 4 12 7 5 5 6 6 6 5 5 6 8 5 7 7 6 8 3
## [3433] 6 7 9 8 6 5 5 6 7 7 6 4 8 3 5 2 11 9 3 4 9 7 7 4
## [3457] 3 3 9 7 9 7 5 3 5 4 7 9 5 8 7 9 2 8 9 5 5 5 5 3
## [3481] 6 4 5 5 3 6 9 8 6 5 6 1 4 9 7 6 8 4 4 5 3 5 4 5
## [3505] 7 5 5 8 7 6 5 2 3 7 5 9 4 5 4 5 8 8 6 4 3 3 7 4
## [3529] 6 4 6 9 0 11 4 5 5 9 7 7 2 6 4 7 7 6 5 5 11 4 11 7
## [3553] 4 4 7 6 5 8 4 8 9 3 7 7 4 9 5 6 5 4 7 8 7 6 6 7
## [3577] 8 4 6 7 8 6 6 9 6 8 9 2 7 4 7 1 7 9 5 8 8 5 6 7
## [3601] 3 3 4 5 6 4 6 6 8 7 7 5 6 11 6 4 11 9 4 2 4 5 4 4
## [3625] 7 10 4 8 6 5 6 2 6 6 7 4 6 6 3 9 8 7 9 2 7 5 9 7
## [3649] 6 5 8 6 7 7 5 6 8 5 3 8 7 7 10 2 9 10 3 7 5 7 6 7
## [3673] 7 6 8 3 5 10 10 7 8 4 7 6 6 5 5 7 7 6 2 10 6 3 3 6
## [3697] 7 5 6 11 11 11 7 4 7 12 5 7 7 6 5 5 5 8 5 9 6 8 6 4
## [3721] 10 9 8 3 4 9 9 4 3 4 7 7 9 5 8 5 6 8 4 4 6 2 6 4
## [3745] 3 12 6 11 12 4 7 5 3 7 0 6 3 5 6 11 3 9 4 5 7 3 11 8
## [3769] 6 6 6 6 6 7 9 5 5 8 8 7 7 9 8 7 6 7 5 6 6 5 6 8
## [3793] 6 6 11 6 7 4 8 7 8 9 6 5 5 5 5 7 4 6 5 6 5 6 4 3
## [3817] 6 5 4 4 5 7 3 11 9 7 7 3 4 5 4 5 5 3 9 5 2 5 5 5
## [3841] 4 2 9 5 6 7 5 6 8 5 7 5 8 6 3 5 5 4 9 8 3 5 5 8
## [3865] 6 1 5 7 3 6 5 6 4 11 6 4 5 5 4 6 7 7 7 7 8 3 8 5
## [3889] 6 5 4 4 6 4 4 5 5 6 13 7 5 5 5 5 6 7 5 6 6 4 8 7
## [3913] 5 5 2 6 6 5 6 4 0 9 10 6 9 12 5 5 3 9 2 3 10 5 5 6
## [3937] 9 3 6 11 4 5 5 9 4 3 3 4 10 7 6 4 6 6 5 4 4 9 5 8
## [3961] 11 5 8 8 7 6 9 3 8 5 8 7 10 2 11 4 5 4 8 5 8 4 7 7
## [3985] 6 10 5 7 8 4 10 8 7 6 5 5 6 6 6 6 3 8 3 8 8 7 5 5
## [4009] 9 7 3 5 7 7 11 5 3 6 9 8 2 8 3 4 7 9 8 6 7 5 5 8
## [4033] 5 8 6 6 8 5 9 3 7 11 7 6 7 6 7 5 7 9 7 7 5 3 6 2
## [4057] 5 6 1 4 8 6 7 10 6 1 7 8 5 10 7 9 5 4 4 2 4 8 2 5
## [4081] 9 8 5 7 3 5 6 6 3 12 5 11 5 4 5 9 5 3 9 8 8 10 3 5
## [4105] 4 4 4 4 10 7 4 1 5 6 6 8 2 7 6 7 8 8 9 6 6 9 6 5
## [4129] 5 6 4 12 7 3 7 10 6 5 6 7 8 9 5 6 5 9 2 6 9 8 6 5
## [4153] 2 3 8 5 9 10 7 4 6 7 5 5 9 4 4 3 5 6 4 7 7 7 7 6
## [4177] 3 8 5 7 1 9 7 9 7 5 6 4 10 8 5 5 5 6 9 7 7 6 8 7
## [4201] 6 5 7 5 5 7 11 6 4 3 7 7 5 4 8 6 5 9 7 9 5 6 6 2
## [4225] 6 5 8 8 7 4 5 5 5 7 7 5 4 6 8 10 9 9 4 7 8 7 4 5
## [4249] 2 9 4 6 8 6 8 6 6 6 8 8 3 2 4 6 6 6 7 7 3 6 4 6
## [4273] 7 9 5 7 8 4 7 8 6 6 8 9 6 5 8 8 5 10 6 5 6 3 8 3
## [4297] 7 6 8 5 10 6 3 7 13 4 8 3 8 4 9 7 5 8 8 6 5 5 8 5
## [4321] 8 5 3 6 6 7 4 2 5 2 7 4 5 5 6 3 6 2 4 7 4 4 6 9
## [4345] 8 7 6 7 4 14 6 8 6 8 8 10 8 3 7 9 6 4 6 8 3 7 8 1
## [4369] 8 5 6 6 6 8 6 7 4 6 7 6 11 4 3 6 4 8 2 9 6 4 10 7
## [4393] 5 8 6 6 8 6 7 7 10 7 7 8 6 8 11 7 2 6 2 2 6 5 7 3
## [4417] 5 9 5 4 4 3 5 6 6 1 9 7 5 5 4 11 2 6 3 6 3 9 4 3
## [4441] 8 5 5 7 7 5 7 6 9 5 6 3 6 5 4 5 0 5 8 5 8 5 4 5
## [4465] 7 5 9 6 7 7 6 2 7 5 7 4 4 8 4 7 9 2 5 5 5 3 4 2
## [4489] 2 4 6 7 11 8 6 7 4 9 7 7 5 6 6 4 9 8 7 2 9 4 7 7
## [4513] 6 8 4 13 3 7 6 5 7 5 2 3 2 1 5 3 5 8 5 6 7 4 11 7
## [4537] 7 5 7 5 6 9 3 5 6 9 9 6 6 2 6 8 6 5 2 6 4 6 6 6
## [4561] 8 7 9 10 8 4 3 7 7 5 3 8 5 5 3 4 4 6 5 7 4 4 6 6
## [4585] 7 7 4 5 4 6 5 4 6 4 8 1 5 5 9 2 7 5 6 9 1 5 9 6
## [4609] 6 10 5 6 3 4 6 8 9 10 4 7 9 6 5 8 0 5 4 10 6 4 4 10
## [4633] 4 8 4 4 6 7 1 7 5 11 6 4 4 6 8 7 7 9 6 5 4 5 8 4
## [4657] 6 4 5 7 7 5 13 4 2 5 5 10 5 4 8 9 7 6 5 5 2 4 11 6
## [4681] 6 2 4 7 7 6 5 5 10 3 6 8 7 6 11 4 7 4 6 7 8 8 3 5
## [4705] 5 5 6 4 3 4 6 8 8 5 5 7 6 7 7 8 5 7 6 8 6 4 10 5
## [4729] 7 7 8 8 7 7 5 6 6 5 5 6 3 10 5 4 4 4 7 8 10 4 7 4
## [4753] 9 6 9 7 5 4 9 5 8 11 5 5 6 11 2 8 4 8 4 4 7 6 13 5
## [4777] 2 7 6 4 4 5 3 10 6 2 4 3 2 8 3 6 4 13 7 3 5 6 6 8
## [4801] 11 5 6 3 2 9 2 5 6 5 7 7 6 3 8 3 5 5 8 8 7 2 8 9
## [4825] 5 2 5 9 4 6 6 8 5 5 6 3 4 4 7 7 7 13 4 4 3 4 7 10
## [4849] 6 5 7 8 2 7 5 7 9 3 5 10 7 4 6 4 4 6 5 9 7 9 5 7
## [4873] 2 6 9 5 4 8 4 7 3 4 5 4 9 7 5 6 8 9 5 9 8 5 11 5
## [4897] 6 7 8 8 11 5 9 6 7 6 3 11 6 4 4 6 6 6 6 5 4 5 10 8
## [4921] 8 3 4 5 6 5 6 5 7 5 9 7 12 3 8 10 8 6 5 7 2 5 9 5
## [4945] 7 6 6 5 5 9 8 8 3 6 3 6 6 5 6 7 6 4 5 6 4 3 7 8
## [4969] 7 6 7 6 9 6 3 7 5 5 6 2 6 6 7 6 7 4 9 3 9 10 8 4
## [4993] 2 8 9 8 2 4 3 7
Ahora, ya con los datos, los clasificamos:
Output=table(SUM)
pander(Output)
| 9 |
53 |
190 |
377 |
658 |
883 |
911 |
727 |
531 |
334 |
195 |
85 |
28 |
14 |
5 |
Para hacer el histograma, es necesario ponderar el número de infectados sobre el total de simulaciones:
Output2=(Output/5000)*100
pander(Output2)
Table continues below
| 0.18 |
1.06 |
3.8 |
7.54 |
13.16 |
17.66 |
18.22 |
14.54 |
10.62 |
6.68 |
3.9 |
Output3 <- as.data.frame(Output2)
ggplot(data=Output3, aes(x=SUM, y=Freq)) +
geom_bar(stat="identity", position="dodge", color = "red", fill= "#00AFBB") +
labs(y="Frecuencia", x="Número de Enfermos")
De acuerdo con los resultados obtenidos, podemos ver que los datos más repetidos fueron 5, 6 y 7, siendo el 6 el que más se repitió. Teniendo en cuenta que era el 6% de los empleados de la empresa, parece que la simulación es exacta.
Ahora queremos saber si los resultados son consistentes cuando los contagiados representan el 30%
Enfermos2_C19= function(n){
Muestra2=sample(c(rep("+",300),rep("-",700)))
# % POBLACION enferma.
real1=300/1000*100
real1
Positivos2_muestra = sample(Muestra2,size = n)
Positivos2_calculados = sum(Positivos2_muestra=="+")
return(Positivos2_calculados)
}
Enfermos2_C19(n=100)
## [1] 29
SUM2 = rep(NA,5000)
for(i in 1:5000){
SUM2[i]= Enfermos2_C19(n=100)
}
SUM2
## [1] 29 32 30 27 26 35 37 30 32 31 33 31 29 26 36 34 25 33 36 35 33 30 32 28
## [25] 30 35 31 36 34 30 31 32 26 30 26 31 34 29 31 27 32 31 45 23 36 29 31 28
## [49] 34 31 31 27 37 29 29 32 27 32 29 31 26 33 30 32 24 27 30 24 22 34 30 22
## [73] 32 33 38 24 29 28 27 28 35 28 31 30 27 33 20 33 23 34 27 30 33 22 26 31
## [97] 25 38 34 33 25 30 32 28 33 35 22 30 31 24 30 30 28 20 22 31 25 37 24 27
## [121] 40 33 36 32 29 35 28 32 31 25 34 29 32 36 30 25 36 27 28 26 34 32 26 25
## [145] 28 33 31 27 29 31 25 27 32 27 31 33 23 25 34 31 34 26 21 28 25 30 31 20
## [169] 28 31 31 27 29 35 33 29 29 26 30 30 31 33 33 29 23 31 41 31 35 27 27 32
## [193] 27 22 27 31 32 25 29 26 28 31 31 35 28 34 29 30 28 29 39 32 30 34 30 27
## [217] 26 24 35 33 26 31 28 31 21 24 33 31 22 36 28 31 39 28 33 27 29 31 27 24
## [241] 31 29 30 33 34 26 33 26 37 30 24 35 34 37 34 33 34 38 28 31 25 25 33 26
## [265] 22 24 28 19 32 29 26 27 27 27 27 25 35 32 29 23 29 28 33 38 30 33 22 39
## [289] 26 29 34 24 35 25 31 35 31 31 33 29 20 32 33 34 31 31 34 26 32 32 31 34
## [313] 31 31 20 30 30 28 36 31 25 33 30 30 34 28 34 31 31 30 37 33 27 26 29 28
## [337] 29 42 30 31 32 25 31 33 31 28 29 31 29 33 32 27 30 29 27 29 18 22 30 31
## [361] 29 36 29 36 28 38 34 30 32 25 21 30 30 32 38 35 23 27 32 28 27 38 34 31
## [385] 26 34 33 32 34 26 34 29 32 32 29 29 30 24 35 31 34 24 32 22 25 31 31 25
## [409] 33 29 30 27 23 35 33 38 43 32 31 26 26 23 30 25 30 25 23 31 28 29 31 23
## [433] 28 36 26 30 29 36 27 32 33 28 32 29 24 36 26 37 33 25 31 36 35 32 37 29
## [457] 28 28 29 32 30 26 36 32 31 32 28 26 23 33 26 25 26 31 28 28 24 28 31 21
## [481] 30 29 22 24 22 28 29 27 35 41 28 25 30 32 28 31 27 25 29 31 33 35 23 30
## [505] 38 29 36 39 32 28 32 35 30 37 24 32 41 29 29 32 31 25 32 31 31 25 26 26
## [529] 30 32 30 23 26 32 32 29 28 30 31 34 34 29 40 27 24 33 28 29 37 25 29 28
## [553] 35 30 33 31 30 31 30 20 35 22 25 27 32 36 31 29 33 23 30 28 28 28 28 39
## [577] 21 34 28 35 33 20 29 29 30 27 29 23 33 29 29 22 24 41 25 32 27 31 36 26
## [601] 33 33 19 29 33 29 36 25 29 33 26 26 31 31 31 34 31 31 31 31 26 30 30 33
## [625] 21 30 33 27 29 33 28 25 29 27 36 28 32 29 28 35 21 32 31 31 27 29 40 29
## [649] 29 25 34 26 24 32 30 31 26 33 28 42 35 31 24 38 25 34 30 29 29 28 32 27
## [673] 26 35 27 35 30 33 25 30 31 25 30 24 29 35 36 40 32 34 23 25 23 23 34 27
## [697] 33 41 31 30 23 31 28 41 34 31 30 29 28 29 30 30 36 35 27 32 26 31 27 34
## [721] 30 32 32 26 31 27 25 25 33 27 31 30 34 27 31 30 33 21 27 30 33 32 37 24
## [745] 34 30 30 23 23 35 27 26 25 33 21 36 32 32 28 26 26 28 27 27 30 25 24 34
## [769] 34 34 30 36 34 29 32 21 32 23 33 27 29 30 37 22 29 32 29 33 27 31 30 34
## [793] 29 34 34 28 29 37 27 24 26 27 32 31 28 22 38 39 36 33 33 36 33 36 25 31
## [817] 39 34 36 28 28 28 41 22 26 36 29 34 34 26 33 26 35 31 29 39 28 26 28 25
## [841] 35 31 42 29 31 20 33 26 30 30 33 27 31 20 21 34 34 28 28 30 30 29 30 27
## [865] 31 29 32 31 25 29 29 32 34 31 26 30 30 38 21 39 28 35 32 27 25 28 32 25
## [889] 31 30 33 30 33 33 27 22 30 42 30 26 28 22 29 30 35 29 29 28 28 27 37 26
## [913] 33 35 34 32 30 29 25 23 28 32 33 30 32 35 32 27 32 33 38 28 23 31 33 28
## [937] 39 36 30 32 25 24 24 27 33 34 32 33 30 33 34 28 36 24 36 32 29 35 32 38
## [961] 28 28 30 41 28 21 32 29 30 28 25 23 26 28 27 27 30 29 25 24 36 31 29 25
## [985] 33 30 27 29 33 18 29 32 25 26 32 30 29 25 29 21 29 22 30 33 28 31 36 31
## [1009] 32 25 24 26 28 31 32 23 29 32 35 30 28 27 30 33 35 27 22 26 31 24 24 34
## [1033] 29 26 32 33 36 22 30 33 31 33 37 31 25 34 34 32 25 39 32 29 28 31 25 29
## [1057] 20 28 28 27 28 32 28 31 31 28 28 32 29 32 30 34 31 18 21 35 25 29 27 32
## [1081] 24 30 29 24 28 20 28 27 37 31 26 33 31 30 24 28 42 26 26 26 26 27 28 32
## [1105] 37 20 28 32 28 34 28 35 29 26 33 34 37 26 35 26 24 44 32 28 27 32 40 30
## [1129] 27 32 30 27 28 30 41 32 31 30 34 35 28 34 27 23 29 23 32 33 34 41 29 34
## [1153] 24 32 23 35 33 28 29 35 21 32 28 33 38 37 28 33 29 36 24 36 32 30 36 31
## [1177] 36 29 26 19 30 41 35 30 25 36 30 29 31 34 29 24 35 29 27 25 27 31 31 31
## [1201] 31 32 30 31 40 26 30 32 35 33 31 33 33 33 35 33 29 28 31 35 31 33 24 30
## [1225] 32 28 33 24 37 26 26 39 37 25 35 25 27 33 32 30 28 45 24 33 30 31 26 23
## [1249] 40 30 34 34 39 25 16 35 32 24 30 37 33 28 30 33 24 25 27 24 36 30 32 26
## [1273] 37 34 34 26 38 35 32 34 25 30 28 30 21 31 32 36 27 33 36 30 30 32 24 18
## [1297] 24 34 29 24 31 29 22 22 37 37 27 29 36 25 26 21 32 30 35 23 27 25 36 17
## [1321] 29 27 36 32 28 33 24 24 25 24 32 33 30 34 27 28 31 25 32 34 29 31 27 24
## [1345] 30 30 26 35 32 26 29 34 34 38 27 24 30 30 23 31 29 37 29 39 21 31 32 27
## [1369] 28 31 25 26 26 27 29 37 25 30 23 22 30 31 34 26 28 18 31 28 25 39 27 38
## [1393] 28 30 37 31 26 30 28 33 27 31 28 31 28 29 30 31 34 32 26 32 21 22 31 26
## [1417] 29 28 38 29 27 41 31 35 29 29 31 29 34 28 31 32 26 25 35 28 31 34 32 31
## [1441] 33 20 32 27 37 29 30 28 33 27 32 33 26 27 29 33 30 29 37 34 28 32 27 26
## [1465] 24 29 29 37 33 33 32 27 31 33 29 30 31 26 33 30 26 25 32 34 26 31 30 33
## [1489] 27 29 24 29 31 20 25 28 33 30 32 25 27 29 27 33 28 28 29 22 30 21 34 27
## [1513] 24 36 27 32 27 29 41 30 34 30 23 43 30 23 29 23 34 37 26 31 29 36 26 27
## [1537] 30 27 23 23 26 33 27 25 34 32 28 32 25 34 21 31 29 26 34 28 30 34 31 30
## [1561] 23 32 36 30 25 32 31 28 30 22 23 38 27 36 34 29 25 36 29 37 29 24 30 30
## [1585] 30 28 33 23 32 34 28 23 27 32 25 31 33 33 25 34 34 27 21 33 29 33 29 22
## [1609] 26 31 27 26 28 27 25 32 27 32 33 37 29 27 32 32 30 31 29 29 38 32 29 33
## [1633] 37 32 30 33 29 29 32 44 30 26 28 34 32 25 37 30 35 32 36 34 30 41 30 35
## [1657] 27 29 34 32 29 33 39 29 32 37 31 25 28 23 34 24 24 28 32 38 29 31 32 36
## [1681] 35 31 22 32 27 30 36 24 23 36 30 31 27 30 31 25 21 33 18 24 27 23 28 34
## [1705] 25 35 42 27 31 32 22 27 33 19 24 28 26 19 24 31 33 34 30 28 31 31 35 31
## [1729] 28 30 28 35 32 33 29 33 26 23 25 32 35 24 30 37 35 35 26 30 22 36 30 27
## [1753] 26 44 26 27 25 21 31 35 21 32 31 31 38 32 24 32 34 32 29 31 29 22 28 26
## [1777] 33 24 23 31 35 29 25 33 21 21 32 22 34 32 26 28 30 26 29 32 29 24 25 28
## [1801] 24 31 37 31 36 22 36 32 32 38 30 34 28 30 34 29 24 30 33 29 29 32 35 23
## [1825] 33 28 30 26 29 32 27 25 26 31 34 32 27 34 35 29 25 30 28 27 35 37 30 27
## [1849] 29 35 41 33 29 28 36 33 34 27 28 25 26 26 30 26 23 32 33 29 29 26 27 28
## [1873] 31 26 24 25 28 34 36 29 41 31 32 30 32 33 26 29 36 40 36 31 33 32 29 33
## [1897] 26 28 28 34 20 31 25 32 29 33 27 27 38 29 25 30 38 33 33 32 27 36 32 36
## [1921] 29 34 42 36 28 29 25 34 36 35 29 35 32 30 24 35 41 31 36 29 30 26 26 34
## [1945] 26 24 29 29 30 36 38 28 34 29 24 36 25 38 30 30 29 26 41 31 30 32 29 27
## [1969] 23 34 31 25 27 29 28 24 31 34 30 29 32 30 30 30 32 33 27 33 26 26 39 24
## [1993] 19 29 20 35 29 29 22 28 35 33 28 31 30 39 35 32 31 32 33 28 30 37 27 27
## [2017] 32 34 40 40 27 41 35 33 33 26 30 31 27 26 34 35 28 25 31 36 28 27 30 32
## [2041] 28 27 32 30 35 35 26 34 27 31 29 36 33 25 26 33 26 28 22 26 31 30 34 28
## [2065] 29 28 28 30 32 28 32 31 24 37 30 29 28 27 31 30 30 31 32 33 34 27 26 26
## [2089] 37 31 27 28 31 35 22 27 27 21 25 27 30 33 32 30 31 33 37 36 28 30 34 23
## [2113] 30 30 30 29 31 35 29 28 43 28 31 32 22 40 26 35 30 28 32 27 33 31 32 27
## [2137] 35 33 26 32 21 34 30 38 37 30 27 37 32 30 29 32 32 29 33 32 29 27 29 23
## [2161] 23 28 31 28 28 33 27 32 34 23 29 38 38 39 33 30 33 34 22 23 23 28 25 42
## [2185] 33 26 33 27 27 28 25 30 28 32 27 35 28 25 27 19 22 36 24 32 35 29 36 31
## [2209] 36 40 31 30 26 29 23 24 27 38 36 31 35 22 30 26 37 35 37 25 28 31 29 30
## [2233] 32 27 27 36 28 40 26 36 25 25 34 32 26 25 36 34 33 24 27 29 27 28 33 30
## [2257] 34 33 24 38 31 22 29 32 27 30 26 24 29 27 33 26 19 34 30 32 38 34 36 31
## [2281] 30 37 31 35 33 31 26 31 30 28 31 35 29 34 25 28 27 29 29 31 31 24 32 37
## [2305] 30 30 28 29 32 36 26 37 26 34 22 28 28 31 31 35 29 31 34 28 37 31 28 23
## [2329] 37 25 30 31 25 37 28 29 33 39 27 24 28 20 36 33 29 30 36 33 36 24 27 27
## [2353] 32 31 41 29 29 30 31 34 28 29 31 28 28 30 30 29 35 31 34 33 34 32 27 43
## [2377] 29 32 27 33 29 29 29 25 33 21 39 33 25 34 32 35 26 33 28 30 26 28 30 40
## [2401] 38 29 19 29 25 25 30 33 33 26 27 30 31 33 30 33 32 24 24 34 26 32 29 27
## [2425] 27 29 33 34 30 38 29 26 33 32 27 40 30 28 27 37 26 36 29 33 27 36 36 32
## [2449] 35 29 36 39 28 33 32 34 28 31 32 29 35 28 34 34 33 27 27 35 30 27 28 32
## [2473] 31 32 31 32 31 30 35 31 22 33 28 31 32 31 30 29 25 27 29 28 30 24 36 28
## [2497] 37 29 38 30 31 31 27 31 38 28 20 25 26 31 25 31 27 22 29 33 28 33 33 24
## [2521] 32 36 31 35 38 34 32 28 32 26 32 31 27 25 32 26 33 32 38 25 23 30 35 35
## [2545] 30 31 33 33 27 29 25 32 25 33 33 25 26 30 35 29 25 22 35 34 28 29 26 27
## [2569] 35 31 27 27 33 34 28 32 27 36 28 27 28 31 22 24 21 28 27 32 28 31 31 29
## [2593] 25 31 37 35 28 28 31 37 30 25 32 27 24 37 34 29 27 30 27 35 35 30 26 25
## [2617] 20 32 32 28 35 27 29 30 29 30 27 28 30 34 31 31 29 27 26 35 27 32 24 24
## [2641] 28 32 33 32 31 28 28 32 29 32 35 30 27 28 31 32 26 25 33 30 23 24 32 30
## [2665] 28 31 27 20 27 27 29 25 31 33 31 31 29 29 28 30 26 31 31 32 24 38 30 28
## [2689] 33 30 29 29 32 40 27 28 28 27 25 28 31 28 30 26 34 32 22 26 29 26 34 23
## [2713] 31 31 28 32 33 29 32 23 30 22 37 30 34 36 29 24 26 31 25 22 32 29 21 24
## [2737] 32 32 21 28 29 38 38 32 27 27 27 36 32 39 32 30 28 31 32 35 27 27 34 27
## [2761] 33 27 32 31 28 30 41 38 25 25 28 29 31 20 23 28 18 27 32 34 32 25 36 34
## [2785] 25 29 29 34 26 41 36 30 23 26 33 37 31 32 26 27 30 32 36 31 28 22 30 29
## [2809] 28 36 25 41 38 38 40 35 29 26 28 31 24 21 37 22 27 28 25 27 23 26 34 33
## [2833] 33 33 31 31 30 32 27 31 37 26 24 34 39 31 29 33 32 34 32 29 29 32 27 27
## [2857] 35 32 28 25 25 27 31 31 27 27 29 32 31 35 23 24 23 29 26 38 27 31 27 32
## [2881] 29 31 28 28 29 38 26 26 30 29 25 38 27 28 26 31 29 20 29 29 34 38 32 33
## [2905] 31 28 25 32 31 34 33 38 21 27 27 27 29 34 33 42 29 28 38 29 31 30 34 31
## [2929] 24 26 32 33 23 30 26 24 30 28 29 34 28 28 35 31 18 26 32 25 29 30 32 23
## [2953] 34 36 33 27 31 25 31 26 26 36 27 26 25 34 31 32 32 30 27 31 33 30 34 32
## [2977] 27 27 38 29 29 35 31 38 30 30 33 33 31 25 20 30 27 26 40 18 32 42 36 28
## [3001] 28 26 20 23 41 27 28 30 34 29 34 22 35 28 39 29 27 31 32 37 30 24 31 27
## [3025] 24 26 32 30 29 31 30 25 22 40 34 27 26 29 29 25 35 26 34 28 27 27 30 26
## [3049] 33 25 33 33 33 33 35 24 28 27 28 28 36 23 36 31 28 24 33 31 26 30 33 26
## [3073] 28 35 28 25 35 27 28 31 39 33 28 35 24 25 24 25 27 25 27 33 34 29 30 40
## [3097] 35 35 25 31 24 28 25 30 27 27 34 33 30 20 24 31 27 39 31 30 29 34 36 20
## [3121] 31 31 30 30 29 28 29 39 30 32 31 34 24 31 29 30 33 31 34 31 25 28 21 37
## [3145] 27 32 34 34 31 25 29 31 24 31 36 30 25 29 32 27 30 33 30 29 27 29 28 27
## [3169] 28 18 34 27 33 31 21 25 27 32 33 33 34 26 30 30 29 27 34 25 25 31 27 32
## [3193] 33 32 30 30 34 31 32 36 35 29 25 32 30 27 29 31 28 38 25 32 33 27 26 33
## [3217] 31 29 34 32 30 29 23 36 27 27 22 28 28 33 30 34 29 36 23 33 25 25 31 33
## [3241] 32 34 29 38 29 25 26 31 32 31 38 28 30 38 30 30 21 30 24 26 31 30 28 32
## [3265] 34 29 28 29 32 32 28 25 35 24 29 26 28 37 29 28 33 34 31 44 27 29 25 29
## [3289] 37 21 39 27 33 29 29 34 31 37 34 23 28 32 33 32 32 24 25 24 33 30 32 35
## [3313] 26 27 30 27 29 35 28 28 29 28 34 27 21 38 29 31 26 39 30 41 32 23 27 28
## [3337] 38 31 34 32 23 29 33 28 30 33 30 27 33 25 35 29 29 29 33 27 30 27 29 25
## [3361] 35 36 29 38 29 28 21 34 32 36 29 37 32 30 34 22 25 30 38 32 29 33 29 25
## [3385] 32 32 38 36 30 36 30 29 36 26 27 31 29 29 29 26 26 24 28 32 29 27 32 34
## [3409] 27 23 36 34 34 29 29 21 26 23 27 33 33 38 26 29 26 30 36 29 24 28 28 38
## [3433] 28 33 34 34 24 38 29 30 28 17 28 30 23 37 24 26 26 32 34 27 36 28 27 32
## [3457] 32 28 20 20 31 28 31 21 29 39 34 26 27 29 29 36 37 28 29 32 34 23 32 33
## [3481] 33 31 26 36 29 29 21 25 33 34 27 33 25 28 22 31 30 30 34 26 27 28 34 34
## [3505] 32 22 32 30 35 32 31 36 30 26 31 28 30 34 23 29 38 29 28 26 37 29 33 25
## [3529] 33 23 27 26 33 29 35 27 24 39 31 28 32 25 32 27 38 32 33 39 37 35 24 26
## [3553] 33 25 34 32 24 30 37 31 34 29 31 29 32 29 31 36 32 32 32 28 30 33 31 32
## [3577] 25 29 28 24 32 24 33 32 41 29 29 30 25 31 29 25 34 28 28 26 32 40 29 25
## [3601] 31 28 31 22 33 30 35 31 27 28 31 27 41 29 25 35 26 26 28 31 28 27 39 35
## [3625] 28 33 33 35 31 29 23 24 35 22 35 27 32 35 32 37 31 27 32 24 33 27 29 36
## [3649] 27 24 32 34 36 34 33 29 32 27 32 27 28 40 32 36 32 31 38 26 38 20 34 31
## [3673] 23 33 23 29 24 20 30 35 33 27 29 32 24 32 28 24 37 23 35 35 23 29 24 28
## [3697] 27 37 36 31 30 27 28 23 31 29 30 31 34 29 33 32 24 26 33 33 32 27 23 31
## [3721] 30 24 32 32 29 28 26 33 30 32 30 34 21 27 29 25 25 35 30 33 29 27 31 25
## [3745] 36 42 34 23 30 28 36 31 36 32 32 31 28 31 30 32 24 35 32 28 25 31 26 32
## [3769] 29 28 33 24 23 30 38 35 33 25 31 33 22 28 31 27 26 29 33 33 30 27 32 28
## [3793] 36 33 41 28 26 31 35 27 26 25 37 26 36 34 29 32 36 25 30 23 30 30 33 32
## [3817] 34 29 30 31 33 36 36 33 29 30 34 32 29 33 33 34 34 30 29 24 26 32 30 29
## [3841] 26 33 36 28 37 29 24 33 31 22 31 32 32 30 19 36 37 25 25 28 25 26 29 27
## [3865] 30 28 29 32 29 21 31 28 29 36 34 33 29 34 38 25 36 34 29 41 31 31 36 25
## [3889] 34 33 35 41 30 28 20 33 22 31 25 31 31 29 26 28 35 30 24 27 32 33 31 27
## [3913] 28 24 28 30 28 35 28 22 32 35 27 32 30 30 30 37 28 27 36 30 33 28 38 32
## [3937] 23 27 43 32 32 27 27 35 19 34 43 33 31 31 33 28 28 34 30 33 30 29 28 32
## [3961] 38 33 31 25 22 30 33 29 32 31 37 25 26 31 30 34 27 33 34 35 35 39 30 35
## [3985] 21 36 23 27 31 33 30 30 27 25 25 30 27 39 19 36 28 41 22 28 29 33 24 33
## [4009] 33 34 27 33 25 28 28 32 35 33 24 33 27 25 32 36 29 33 30 31 35 24 28 21
## [4033] 28 32 26 28 33 33 27 31 31 31 25 23 24 26 31 34 30 37 34 29 36 29 34 29
## [4057] 29 31 23 33 27 29 32 29 32 33 34 30 33 34 31 32 28 35 28 38 33 30 32 32
## [4081] 19 39 28 30 28 27 29 36 25 26 30 33 33 32 28 41 35 21 25 21 30 26 32 27
## [4105] 28 24 35 20 35 31 27 28 29 26 25 31 32 37 30 33 30 30 21 28 30 33 29 29
## [4129] 32 28 29 32 33 28 24 32 32 33 20 27 28 28 38 32 29 31 22 34 27 32 23 25
## [4153] 28 34 31 31 30 26 31 25 46 36 26 22 33 24 25 29 36 26 26 23 32 25 29 31
## [4177] 38 33 29 35 34 35 37 26 30 23 29 31 23 26 25 20 21 31 25 24 26 36 35 23
## [4201] 27 29 29 29 24 30 39 28 30 22 29 28 27 27 32 31 28 32 30 32 29 28 39 19
## [4225] 28 35 31 35 24 28 27 31 26 23 35 26 32 33 29 31 35 27 24 26 28 23 25 27
## [4249] 29 31 28 24 35 32 25 27 27 33 32 18 32 30 32 32 32 35 29 30 32 33 35 28
## [4273] 30 26 28 23 28 38 32 29 33 25 27 29 31 38 30 32 21 38 30 34 31 22 29 27
## [4297] 28 32 35 30 26 26 30 30 24 32 30 23 26 42 26 33 27 22 35 18 22 34 29 32
## [4321] 28 24 31 29 26 34 38 27 30 29 31 31 30 27 26 23 27 37 24 33 28 33 33 36
## [4345] 31 28 24 27 27 34 30 27 31 33 28 40 36 27 33 34 29 39 34 40 27 20 36 24
## [4369] 33 32 33 29 27 29 32 35 36 29 28 30 31 27 35 37 31 34 29 24 29 30 34 22
## [4393] 34 22 31 31 32 25 27 32 29 24 36 34 14 27 32 22 30 31 30 40 31 26 37 38
## [4417] 25 31 40 25 24 32 37 30 31 34 39 33 33 29 28 30 26 39 34 23 27 24 33 29
## [4441] 22 34 27 34 29 27 30 25 27 27 30 28 31 37 27 30 30 29 33 32 27 26 33 22
## [4465] 28 25 29 30 23 34 27 33 29 27 35 31 35 23 25 33 31 27 29 33 27 36 29 30
## [4489] 32 31 26 28 33 28 23 31 30 32 23 33 24 25 31 37 36 35 25 22 31 29 31 27
## [4513] 31 29 29 28 35 30 33 25 35 24 32 30 31 31 25 28 38 25 32 33 30 33 37 31
## [4537] 34 28 24 24 37 37 24 22 37 24 31 26 30 25 30 28 26 30 30 30 31 24 24 31
## [4561] 36 30 31 27 28 33 24 26 29 31 28 29 35 29 33 24 39 29 34 24 24 29 28 31
## [4585] 31 31 33 24 27 26 32 33 30 21 32 21 29 29 35 25 22 24 29 28 21 25 29 35
## [4609] 36 34 39 28 33 32 30 33 22 36 24 30 32 34 36 36 39 31 20 30 25 35 34 31
## [4633] 28 35 27 36 36 29 21 29 21 28 30 30 30 27 31 33 29 35 33 34 32 35 21 25
## [4657] 34 30 28 28 26 26 25 29 40 37 28 27 34 37 21 30 42 29 35 23 33 36 26 30
## [4681] 21 26 36 24 32 23 31 33 36 33 30 28 27 32 25 40 27 28 31 25 30 36 31 29
## [4705] 38 30 31 28 31 30 28 36 35 29 28 31 35 26 26 37 24 26 27 30 30 25 30 29
## [4729] 34 34 27 34 25 30 36 36 30 25 37 27 28 30 32 34 30 31 35 32 32 35 32 29
## [4753] 21 31 33 34 30 26 29 32 32 36 24 32 27 34 25 31 29 26 31 33 29 27 29 32
## [4777] 30 24 34 31 28 27 27 26 28 28 31 33 32 36 22 30 32 33 31 27 34 34 27 34
## [4801] 33 35 35 32 37 26 24 26 37 31 27 37 35 31 34 30 29 29 32 35 29 19 25 29
## [4825] 34 38 23 32 40 27 25 34 30 27 37 29 28 32 28 31 30 28 27 27 34 26 26 29
## [4849] 32 21 39 35 35 28 34 29 33 26 27 29 27 23 35 35 28 31 29 36 40 32 25 35
## [4873] 36 28 33 27 28 32 33 30 33 31 24 28 27 33 35 27 22 31 25 33 31 35 31 26
## [4897] 24 23 40 24 28 34 23 29 35 26 36 29 31 31 32 24 29 38 29 24 28 32 26 24
## [4921] 33 28 28 24 28 33 33 27 30 31 34 34 24 30 24 27 34 32 26 28 30 38 24 34
## [4945] 32 37 30 25 23 35 31 32 31 35 35 31 35 24 34 36 34 23 31 32 35 34 37 25
## [4969] 27 34 27 33 32 27 26 24 32 32 30 31 34 26 22 36 31 32 39 36 23 38 37 30
## [4993] 37 35 40 35 22 29 25 24
Output4 = table(SUM2)
pander(Output4)
Table continues below
| 1 |
1 |
2 |
12 |
15 |
36 |
64 |
87 |
120 |
193 |
247 |
271 |
382 |
410 |
Table continues below
| 465 |
441 |
455 |
430 |
365 |
283 |
213 |
175 |
107 |
88 |
47 |
32 |
32 |
13 |
Output5 = (Output4/5000)*100
pander(Output5)
Table continues below
| 0.02 |
0.02 |
0.04 |
0.24 |
0.3 |
0.72 |
1.28 |
1.74 |
2.4 |
3.86 |
4.94 |
Table continues below
| 5.42 |
7.64 |
8.2 |
9.3 |
8.82 |
9.1 |
8.6 |
7.3 |
5.66 |
4.26 |
3.5 |
2.14 |
| 1.76 |
0.94 |
0.64 |
0.64 |
0.26 |
0.12 |
0.08 |
0.04 |
0.02 |
Output6 <- as.data.frame(Output5)
ggplot(data=Output6, aes(x=SUM2, y=Freq)) +
geom_bar(stat="identity", position="dodge", color = "red", fill= "#00AFBB") +
labs(y="Frecuencia", x="Numero de Enfermos")
Teniendo en cuenta que se tiene el 30% de los empleados contagiados, y la simulación muestra como 30 el número más repetitivo, se puede decir que es precisa.