Distribución Hipergeométrica

En una línea de control de calidad se revisan 10 artículos determinando que hay 3 que

no cumplen con las especificaciones. Si se escogen al azar 2 artículos identifique los

parámetros de la ley y halle la esperanza de la variable aleatoria, que describe el

número de piezas correctas de las dos escogidas.

Revisar cuantos articulos son correctos ante el control de calidad

##valores iniciales
##x="numero de piezas correctas"
##x={0,1,2}
##n=articulos = 7
##r=2
##
P0<- dhyper(x=0, m=7, n=3, k=2)
P0
## [1] 0.06666667
P1<- dhyper(x=1, m=7, n=3, k=2)
P1
## [1] 0.4666667
P2<- dhyper(x=2, m=7, n=3, k=2)
P2
## [1] 0.4666667