Sea \(X\) la v.a. que representa el número de niñas en una familia con tres hijos. Dadas las condiciones de la variable, se tiene que \(X\sim \textsf{Bin}(n,\pi)\), donde \(n=3\) y \(\pi=0.5\); la probabilidad de éxito es 0.5 dado que los niños y las niñas tienen la mimsa probabilidad de nacer.
dbinom(x = 1, size = 3, prob = 0.5)
## [1] 0.375
En este caso la v.a. \(X\) se puede modelar mediante la distribución Poisson con parámetro \(\lambda\), dado que \(X\) da cuenta del númedo de éxitos (accidentes de trabajos) en una unidad de tiempo bien definida, en este caso, por semana. Dado que \(\textsf{Pr}(X=0)=0.0821\), se tiene que \[ \textsf{Pr}(X=0)=\frac{e^{-\lambda}\,\lambda^0}{0!}=e^{-\lambda}=0.0821 \] y por lo tanto, la tasa esperada de accidentes es \(\lambda = - \ln(0.0821) = 2.499817\) por semana.
Así, la probabilidad de que en una semana seleccionada al azar, se presenten por lo menos dos accidentes de trabajo es: \[ \textsf{Pr}(X \geq 2) = 1 - \textsf{Pr}(X\leq 1) = 1-F_X(1) = 0.712665. \]
# lambda
lambda <- -log(0.0821)
lambda
## [1] 2.499817
# Pr(X >= 2)
1 - ppois(q = 1, lambda = lambda)
## [1] 0.712665
Sea \(X\) la v.a. que represeta el número de personas de una muestra aleatoria de 15 personas con edades entre 40 y 50 años que están a favor de la medida ecónomica. Dado que la probabilidad de éxito (estar a favor de la medida económica) se mantiene constante (esto puede suceder cuando la muestra se toma con reemplazo o cuando se toma sin reemplazo cuando \(n << N\), donde \(N\) es el tamaño de la población), se tiene que \(X\sim\textsf{Bin}(n,\pi)\), con \(n=15\) y \(\pi=0.26\).
Calcule la probabilidad de que: Exactamente 3 estén a favor. \[ \textsf{Pr}(X=3) = f_X(3) = {15\choose3}(0.26)^3(0.74)^{12} = 0.2156314 \]
Calcule la probabilidad de que: Tres o más tengan estén a favor. \[ \textsf{Pr}(X\geq3) = 1 - P(X\leq2) = 1 - F_X(2) = 0.789861 \]
Calcule la probabilidad de que: Entre 4 y 7, inclusive, estén a favor. \[ \textsf{Pr}(4\leq X \leq 7) = \textsf{Pr}(X=4) + \ldots + \textsf{Pr}(X = 7) = F_X(7) - F_X(3) = 0.5523283 \]
# a. Pr(X = 3)
dbinom(x = 3, size = 15, prob = 0.26)
## [1] 0.2156314
# b. Pr(X >= 3)
1 - pbinom(q = 2, size = 15, prob = 0.26)
## [1] 0.789861
# c. Pr(4 <= X <= 7)
pbinom(q = 7, size = 15, prob = 0.26) - pbinom(q = 3, size = 15, prob = 0.26)
## [1] 0.5523283
Sea \(E\) el evento dado por “el artículo tiene la anomalía”; se sabe que la incidencia correspondiente es 10% y por lo tanto \(\textsf{Pr}(E) = 0.1\). De otra parte, sea \(P\) el evento dado por “la prueba de calidad es positiva para la anomalía de interés”; dado que la sensibilidad de la prueba de calidad es del 80% y la especificidad del 75%, se tiene que \(\textsf{Pr}(P\mid E) = 0.8\) (sensibilidad) y \(\textsf{Pr}(P^C\mid E^C) = 0.75\) (especificidad). Así, aplicando el teorema de la probabilidad total, se deduce que la probabilidad de no pasar el control es \[ \textsf{Pr}(P) = \textsf{Pr}(P\mid E)\,\textsf{Pr}(E) + \textsf{Pr}(P\mid E^C)\,\textsf{Pr}(E^C) = (0.8)(0.1)+(0.25)(0.9) = 0.305 \] Ahora, sea \(X\) la v.a. que representa el número de artículos de los 10 seleccionados para detectar la anomalía. Dado que la probabilidad de éxito (el artículo no pasa la prueba para la anomalía) se mantiene constante (esto puede suceder cuando la muestra se toma con reemplazo o cuando se toma sin reemplazo cuando \(n << N\), donde \(N\) es el tamaño del lote), se tiene que \(X\sim\textsf{Bin}(n,\pi)\), con \(n=10\) y \(\pi=0.305\).
¿Cuál es la probabilidad de que exactamente cuatro artículos no pasen la prueba de control? \[ \textsf{Pr}(X=4) = f_X(4) ={10\choose4}(0.305)^4(0.695)^6 = 0.2047988 \]
Si en la muestra hay cuatro artículos para los que la prueba detecta la anomalía, ¿cuál es la probabilidad de que entre estas, exactamente dos estén en perfectas condiciones?
Sea \(Y\) la v.a. que representa el número de artículos de los 4 para los que la prueba detecta la anomalía. Así, \(Y\sim\textsf{Bin}(4,\pi)\) donde \(n = 4\) y \[ \pi = \textsf{Pr}(E^C\mid P) = \frac{\textsf{Pr}(E^C\cap P)}{\textsf{Pr}(P)} = \frac{\textsf{Pr}(P\mid E^C)\textsf{Pr}(E^C)}{\textsf{Pr}(P)} = \frac{(0.25)(0.9)}{0.305} = 0.7377049 \] y por lo tanto la probabilidad pedida es \[ \textsf{Pr}(Y = 2) = {4\choose2}(0.7377049)^2(0.2622951)^2 = 0.2246451 \]
# Pr (P) (teorema de la probabilidad total)
(0.8)*(0.1)+(0.25)*(0.9)
## [1] 0.305
# a. Pr(X = 4)
dbinom(x = 4, size = 10, prob = 0.305)
## [1] 0.2047988
# Pr (E^C | P)
(0.25)*(0.9)/0.305
## [1] 0.7377049
# b. Pr(Y = 2)
dbinom(x = 2, size = 4, prob = 0.7377049)
## [1] 0.2246451
Sea \(X\) la v.a. que representa el número anual de muertes por cáncer de pulmón. Así, \(X\) se puede modelar mediante la distribución Poisson con parámetro \(\lambda\), dado que \(X\) da cuenta del númedo de éxitos (muertes) en una unidad de tiempo bien definida, en este caso, por año. Se tiene que \(\lambda = 12\).
¿Cuál es la probabilidad de que durante el año en curso: Haya exactamente 10 muertes por cáncer de pulmón? \[ \textsf{Pr}(X = 10) = f_X(10) = \frac{e^{-12}\,12^{10}}{10!} = 0.1048373 \]
¿Cuál es la probabilidad de que durante el año en curso: 15 o más personas mueran a causa de la enfermedad? \[ \textsf{Pr}(X\geq 15) = 1 - \textsf{Pr}(X\leq 14) = 1 - F_X(14) = 0.2279755 \]
¿Cuál es la probabilidad de que durante el año en curso: 10 o menos personas mueran a causa de la enfermedad? \[ \textsf{Pr}(X \leq 10) = F_X(10) = 0.3472294 \]
# a. Pr(X = 10)
dpois(x = 10, lambda = 12)
## [1] 0.1048373
# b. Pr(X >= 15)
1- ppois(q = 14, lambda = 12)
## [1] 0.2279755
# c. Pr(X <= 10)
ppois(q = 10, lambda = 12)
## [1] 0.3472294
Sea \(X\) la v.a. que representa los gastos diarios (en pesos) en alimentación de las familias en un sector del país. Se sabe que \(X \sim\textsf{N}(\mu,\sigma^2)\) y que \(\textsf{Pr}(X\geq 4080)=0.9\) y \(\textsf{Pr}(X<9000) = 0.9772\). Estandarizando se tienen las siguientes ecuaciones: \[ \textsf{Pr}\left(Z\geq \frac{4080-\mu}{\sigma}\right)=0.9\qquad\text{y}\qquad \textsf{Pr}\left(Z< \frac{9000-\mu}{\sigma}\right)=0.9772 \] y por lo tanto \[ \frac{4080-\mu}{\sigma}=-1.281552\qquad\text{y}\qquad \frac{9000-\mu}{\sigma}=1.999077 \] Despejando \(\mu\) y \(\sigma\) de este sistema de ecuaciones (por ejemplo, despejando \(\mu\) de la primera ec. y luego sustituyendo en la segunda para despejar \(\sigma\), y en seguida usar este valor de \(\sigma\) para hallar \(\mu\)) con dos incognitas se obtiene que \(\mu = 6001.959\) y \(\sigma = 1499.712\).
# percentil 10
qnorm(p = 0.1)
## [1] -1.281552
# percentil 97.72
qnorm(p = 0.9772)
## [1] 1.999077
# desviacion estandar
sigma <- (9000-4080)/(1.999077+1.281552)
sigma
## [1] 1499.712
# media
mu <- 4080+1.281552*sigma
mu
## [1] 6001.959
# a. Pr(X > 8000)
1-pnorm(q = 8000, mean = mu, sd = sigma)
## [1] 0.09138369
# b. Pr(7000 < X < 9000)
pnorm(q = 9000, mean = mu, sd = sigma) - pnorm(q = 7000, mean = mu, sd = sigma)
## [1] 0.2300692
# c. Pr(X < 5000)
pnorm(q = 5000, mean = mu, sd = sigma)
## [1] 0.2520345
# d. Pr (3000 < X < 4500)
pnorm(q = 4500, mean = mu, sd = sigma) - pnorm(q = 3000, mean = mu, sd = sigma)
## [1] 0.1356339
Sea \(X\) la v.a. que representa el número de ratas a las que se les sumistró el anticoagulante entre las 10 seleccionadas para la segunda fase del estudio. Dado que el muestreo se hace sin reemplazo, y por lo tanto la probabilidad de éxito (la rata se le suministró el anticoagulante) no se mantiene constante, entonces se tiene que \(X\sim\textsf{Hg}(n,M,N)\), donde \(n=10\), \(M=8\) y \(N=15\). Por lo tanto, la probabilidad de que de las 10 ratas 6 tengan la droga y 4 no la tengan es: \[ \textsf{Pr}(X=6) = \frac{{8\choose 6}{7\choose 4}}{{15\choose10}} = 0.3263403 \]
# a Pr(X = 6)
dhyper(x = 6, m = 8, n = 7, k = 10)
## [1] 0.3263403
# b. E(X)
10*8/15
## [1] 5.333333
Sea \(X\) la v.a. que representa la descarga (en miligramos por litro) de sólidos de una mina de fosfato. Se sabe que \(X\sim \textsf{N}(\mu,\sigma^2)\), donde \(\mu=27\) y \(\sigma=14\).
¿En que proporción de los días excederá la descarga diaria los 50 miligramos por litro? \[ \textsf{Pr}(X>50) = 1 - \textsf{Pr}(X\leq50) = 1-F_X(50) = 0.05020625 \]
¿En que proporción de los días la descarga estará entre 29 y 32 miligramos por litro? \[ \textsf{Pr}(29<X<32) = F_X(32)- F_X(29) = 0.08270907 \]
¿Cuál es la descarga máxima que se produce en el 75% de los días? El percentil 75 de \(X\) es 36.44286. \[ \textsf{Pr}(X<a) = 0.75 \\ a = 36.44286 \]
# a. Pr(X > 50)
1 - pnorm(q = 50, mean = 27, sd = 14)
## [1] 0.05020625
# b. Pr(29 < X < 32)
pnorm(q = 32, mean = 27, sd = 14) - pnorm(q = 29, mean = 27, sd = 14)
## [1] 0.08270907
# c. percentil 75
qnorm(p = 0.75, mean = 27, sd = 14)
## [1] 36.44286