simula_lanzamiento=function(){
dado1=1:6
dado2=1:6
x=sample(dado1,1)+sample(dado2,1)
return(x)
}
simula_lanzamiento()
## [1] 7
simula_multiples_lanzamientos =function(nlanzamientos,valor_condicion){
lanzamientos=array(NA,nlanzamientos)
for(i in 1:nlanzamientos){
lanzamientos[i]=simula_lanzamiento()
}
return(sum(lanzamientos==valor_condicion))
}
simula_multiples_lanzamientos(nlanzamientos= 500,valor_condicion = 7)
## [1] 74
#Probabilidad teorica (Combinaciones)
dado1=1:6
dado2=1:6
espacio=expand.grid(dado1,dado2)
y=apply(espacio,1,sum)
probabilidad_teorica=table(y)/36
probabilidad_teorica
## y
## 2 3 4 5 6 7 8
## 0.02777778 0.05555556 0.08333333 0.11111111 0.13888889 0.16666667 0.13888889
## 9 10 11 12
## 0.11111111 0.08333333 0.05555556 0.02777778
plot(2:12,probabilidad_teorica, type = "b")
#valor aproximado de la probabilidad
simula_multiples_lanzamientos(nlanzamientos= 1000000,valor_condicion = 2)/100000
## [1] 0.27844
simula_multiples_lanzamientos(nlanzamientos= 1000000,valor_condicion = 7)/100000
## [1] 1.66624
## Punto 2
#Población con 10% de unos.
poblacion = c(rep(x = 1,100), rep(x = 0,900))
sum(sample(poblacion,size = 200))/200
## [1] 0.13
porcentajes_muestra=array(NA,1000)
for (i in 1:1000) {
poblacion = c(rep(x = 1,100), rep(x = 0,900))
porcentajes_muestra[i]=sum(sample(poblacion,size = 200))/200
}
porcentajes_muestra
## [1] 0.110 0.090 0.100 0.085 0.085 0.100 0.115 0.100 0.105 0.115 0.070 0.130
## [13] 0.085 0.085 0.130 0.130 0.095 0.090 0.090 0.120 0.080 0.085 0.080 0.080
## [25] 0.110 0.115 0.085 0.095 0.115 0.105 0.130 0.090 0.075 0.085 0.100 0.095
## [37] 0.125 0.110 0.130 0.095 0.085 0.070 0.115 0.100 0.055 0.080 0.090 0.095
## [49] 0.110 0.110 0.090 0.100 0.085 0.080 0.095 0.090 0.135 0.075 0.115 0.085
## [61] 0.125 0.165 0.100 0.095 0.080 0.090 0.145 0.085 0.085 0.095 0.105 0.130
## [73] 0.130 0.110 0.110 0.120 0.140 0.105 0.105 0.130 0.120 0.100 0.100 0.110
## [85] 0.105 0.130 0.090 0.110 0.110 0.100 0.085 0.095 0.095 0.140 0.090 0.115
## [97] 0.065 0.120 0.115 0.095 0.050 0.100 0.120 0.100 0.125 0.140 0.105 0.075
## [109] 0.105 0.145 0.110 0.080 0.070 0.120 0.070 0.075 0.065 0.130 0.130 0.085
## [121] 0.115 0.070 0.075 0.090 0.125 0.125 0.085 0.105 0.095 0.100 0.055 0.105
## [133] 0.080 0.110 0.070 0.110 0.125 0.110 0.080 0.090 0.120 0.080 0.080 0.060
## [145] 0.090 0.135 0.070 0.125 0.115 0.100 0.115 0.140 0.125 0.115 0.100 0.105
## [157] 0.120 0.120 0.120 0.095 0.075 0.090 0.120 0.110 0.100 0.085 0.130 0.085
## [169] 0.085 0.100 0.085 0.090 0.080 0.100 0.125 0.090 0.080 0.140 0.050 0.060
## [181] 0.100 0.075 0.100 0.115 0.095 0.105 0.070 0.115 0.135 0.085 0.100 0.110
## [193] 0.085 0.155 0.085 0.100 0.095 0.090 0.105 0.110 0.095 0.125 0.085 0.095
## [205] 0.095 0.095 0.105 0.130 0.090 0.085 0.110 0.100 0.110 0.065 0.100 0.075
## [217] 0.105 0.130 0.085 0.100 0.100 0.135 0.085 0.070 0.110 0.100 0.120 0.105
## [229] 0.100 0.075 0.095 0.095 0.130 0.120 0.070 0.095 0.100 0.085 0.110 0.090
## [241] 0.110 0.100 0.095 0.090 0.115 0.095 0.110 0.070 0.095 0.090 0.085 0.080
## [253] 0.105 0.085 0.075 0.110 0.125 0.125 0.110 0.095 0.095 0.110 0.095 0.090
## [265] 0.080 0.125 0.130 0.110 0.075 0.070 0.115 0.100 0.070 0.125 0.110 0.095
## [277] 0.130 0.120 0.120 0.105 0.095 0.135 0.105 0.100 0.105 0.130 0.140 0.085
## [289] 0.090 0.125 0.090 0.115 0.115 0.105 0.125 0.095 0.095 0.130 0.105 0.095
## [301] 0.095 0.105 0.100 0.080 0.070 0.085 0.090 0.080 0.090 0.120 0.115 0.105
## [313] 0.090 0.080 0.105 0.125 0.150 0.090 0.095 0.120 0.075 0.100 0.085 0.090
## [325] 0.130 0.085 0.095 0.130 0.130 0.105 0.085 0.075 0.065 0.095 0.090 0.110
## [337] 0.100 0.090 0.090 0.140 0.090 0.095 0.130 0.135 0.120 0.105 0.120 0.095
## [349] 0.110 0.120 0.070 0.090 0.110 0.100 0.100 0.090 0.135 0.105 0.130 0.070
## [361] 0.090 0.110 0.110 0.080 0.100 0.095 0.075 0.115 0.095 0.110 0.145 0.080
## [373] 0.125 0.145 0.130 0.105 0.110 0.095 0.125 0.090 0.115 0.115 0.090 0.115
## [385] 0.070 0.100 0.100 0.100 0.135 0.100 0.080 0.170 0.070 0.085 0.105 0.090
## [397] 0.135 0.080 0.105 0.115 0.100 0.105 0.080 0.130 0.100 0.080 0.095 0.095
## [409] 0.115 0.075 0.110 0.095 0.090 0.100 0.055 0.095 0.090 0.105 0.100 0.075
## [421] 0.095 0.100 0.100 0.085 0.095 0.115 0.095 0.105 0.090 0.110 0.100 0.095
## [433] 0.060 0.095 0.060 0.095 0.115 0.100 0.095 0.100 0.090 0.110 0.115 0.080
## [445] 0.100 0.130 0.135 0.125 0.125 0.085 0.145 0.095 0.095 0.080 0.085 0.105
## [457] 0.115 0.080 0.100 0.120 0.100 0.145 0.080 0.100 0.100 0.160 0.100 0.105
## [469] 0.110 0.105 0.115 0.125 0.125 0.085 0.110 0.095 0.085 0.095 0.095 0.120
## [481] 0.110 0.105 0.105 0.080 0.115 0.100 0.080 0.065 0.095 0.130 0.100 0.080
## [493] 0.105 0.075 0.105 0.105 0.125 0.065 0.100 0.100 0.085 0.135 0.100 0.085
## [505] 0.105 0.070 0.100 0.110 0.085 0.080 0.085 0.100 0.095 0.070 0.120 0.100
## [517] 0.095 0.080 0.090 0.125 0.100 0.100 0.080 0.095 0.120 0.085 0.125 0.135
## [529] 0.070 0.105 0.090 0.085 0.075 0.105 0.095 0.085 0.070 0.065 0.125 0.095
## [541] 0.135 0.140 0.120 0.100 0.115 0.110 0.100 0.100 0.055 0.075 0.090 0.070
## [553] 0.095 0.085 0.110 0.105 0.070 0.130 0.115 0.115 0.115 0.090 0.055 0.090
## [565] 0.110 0.085 0.125 0.145 0.085 0.085 0.080 0.075 0.090 0.100 0.085 0.105
## [577] 0.060 0.080 0.110 0.110 0.095 0.085 0.110 0.080 0.095 0.115 0.085 0.090
## [589] 0.120 0.090 0.100 0.095 0.125 0.090 0.090 0.065 0.120 0.100 0.115 0.170
## [601] 0.105 0.090 0.105 0.095 0.095 0.125 0.125 0.085 0.085 0.080 0.095 0.100
## [613] 0.100 0.120 0.090 0.090 0.105 0.090 0.130 0.100 0.135 0.080 0.095 0.075
## [625] 0.065 0.105 0.100 0.090 0.090 0.075 0.095 0.090 0.105 0.085 0.085 0.090
## [637] 0.120 0.125 0.120 0.090 0.070 0.070 0.105 0.090 0.080 0.045 0.070 0.100
## [649] 0.085 0.115 0.120 0.115 0.095 0.115 0.110 0.085 0.110 0.105 0.080 0.090
## [661] 0.065 0.100 0.085 0.080 0.085 0.150 0.100 0.080 0.085 0.110 0.125 0.080
## [673] 0.090 0.105 0.105 0.105 0.085 0.115 0.070 0.135 0.085 0.090 0.080 0.120
## [685] 0.100 0.055 0.125 0.085 0.080 0.080 0.085 0.095 0.125 0.085 0.070 0.110
## [697] 0.080 0.095 0.095 0.120 0.095 0.105 0.105 0.100 0.075 0.125 0.110 0.095
## [709] 0.080 0.125 0.135 0.075 0.105 0.140 0.120 0.115 0.105 0.100 0.105 0.105
## [721] 0.070 0.065 0.115 0.125 0.060 0.100 0.130 0.080 0.115 0.080 0.100 0.135
## [733] 0.070 0.085 0.090 0.075 0.115 0.100 0.115 0.095 0.085 0.095 0.095 0.085
## [745] 0.115 0.090 0.155 0.105 0.090 0.105 0.090 0.070 0.140 0.095 0.130 0.115
## [757] 0.100 0.140 0.090 0.120 0.120 0.100 0.110 0.105 0.105 0.080 0.070 0.075
## [769] 0.115 0.095 0.090 0.115 0.095 0.075 0.085 0.080 0.075 0.080 0.095 0.080
## [781] 0.100 0.105 0.085 0.050 0.130 0.080 0.110 0.100 0.115 0.100 0.105 0.110
## [793] 0.080 0.115 0.110 0.115 0.085 0.095 0.095 0.075 0.110 0.125 0.105 0.115
## [805] 0.080 0.095 0.070 0.070 0.140 0.075 0.110 0.075 0.110 0.110 0.115 0.105
## [817] 0.110 0.130 0.095 0.105 0.105 0.070 0.115 0.100 0.095 0.115 0.105 0.140
## [829] 0.115 0.125 0.085 0.060 0.110 0.110 0.075 0.080 0.100 0.060 0.115 0.075
## [841] 0.110 0.105 0.080 0.090 0.105 0.095 0.060 0.095 0.060 0.105 0.085 0.100
## [853] 0.065 0.085 0.095 0.120 0.110 0.075 0.075 0.110 0.105 0.100 0.080 0.095
## [865] 0.100 0.100 0.105 0.115 0.130 0.090 0.100 0.100 0.060 0.115 0.055 0.095
## [877] 0.080 0.080 0.090 0.090 0.105 0.090 0.095 0.090 0.080 0.110 0.110 0.110
## [889] 0.085 0.120 0.110 0.105 0.130 0.075 0.075 0.100 0.130 0.155 0.110 0.120
## [901] 0.105 0.080 0.085 0.085 0.075 0.110 0.075 0.125 0.090 0.095 0.095 0.115
## [913] 0.120 0.080 0.100 0.085 0.095 0.115 0.125 0.125 0.105 0.095 0.085 0.110
## [925] 0.150 0.070 0.120 0.140 0.100 0.120 0.140 0.095 0.125 0.120 0.125 0.090
## [937] 0.120 0.145 0.095 0.100 0.120 0.080 0.125 0.110 0.090 0.085 0.070 0.105
## [949] 0.115 0.125 0.140 0.105 0.115 0.105 0.110 0.065 0.115 0.080 0.100 0.115
## [961] 0.070 0.095 0.075 0.130 0.085 0.090 0.105 0.110 0.100 0.075 0.075 0.095
## [973] 0.090 0.120 0.105 0.095 0.080 0.100 0.125 0.080 0.090 0.085 0.105 0.095
## [985] 0.065 0.125 0.090 0.105 0.105 0.125 0.095 0.100 0.080 0.100 0.090 0.125
## [997] 0.095 0.100 0.120 0.095
summary(porcentajes_muestra)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.04500 0.08500 0.10000 0.09999 0.11500 0.17000
hist(porcentajes_muestra)
abline(v=0.1,col="red",lwd=4)
