DISTRIBUCIÓN H Y P E R G E O M E T R I C A
De un grupo de 20 ingenieros con doctorado, se eligen 10 aleatoriamente con el fin de contratarlos.
1) ¿Cuál es la probabilidad de que entre los 10 seleccionados, estén los 5 mejores del grupo de 20?
N=20 #Número total de ingenieros.
m=10 # Muestra aleatoria
n=10 #Número de ensayos, 10 de la población total de ingenieros (20 ingenieros).
r=5 # 5 ing, donde esten los 5 mejores
dhyper(x=5,m,n=20-10,r)
## [1] 0.01625387
Resultados
rbind(phyper(r,m,n,r),dhyper(x=5,m,n=20-10,r))
## [,1]
## [1,] 1.00000000
## [2,] 0.01625387
Ploteo de Resultados
plot(rbind(phyper(r,m,n,r),dhyper(x=5,m,n=20-10,r)),xlab="Probabilidad",ylab="Ing",main="Los mejores ing",col=(51))
Conclusion
En esta practica aprendimos el uso de la función en comando para la distribución hypergeometrica, aunque es un poco dificil entender el uso de las variables al momento de generar graficas.