A continuación se encuentran las respuestas y su código correspondiente a los enunciados presentados en la primera sesión de Ejercicio del Ramo de Estadística Computacional.
a) Señale el tipo de variable aleatoria y la distribución que sigue.
La variable aleatoria es de tipo discreta. La distribución corresponde a una de tipo binomial.
b) Determine la función de probabilidad de masa.
Como se evalúan 3 teléfonos, la función de probabilidad será:
factorial(3)/(factorial(3) * factorial(0)) * (0.8^3) * (0.2)^0
## [1] 0.512
c) Grafique la distrubución.
a) Señale el tipo de variable aleatoria y la distribución que sigue.
La variable aleatoria es de tipo discreta. La distribución corresponde a una de tipo binomial.
b) ¿Cuál es la probabilidad de que cuatro o más evaluaciones deban ser efectuadas para detectar a dos personas portadoras del gen?
p = sum(dbinom(2, size = c(0, 1, 2, 3), prob = 0.1))
round(1 - p, 3)
## [1] 0.963
c) ¿Cuál es el número esperado de evaluaciones que debo realizar para detectar dos personas portadoras del gen?
20 evaluaciones.
d) Grafique la distribución.
a) Señale el tipo de variable aleatoria y la distribución que sigue.
La variable aleatoria es de tipo discreta. La distribución corresponde a una de tipo binomial.
b) Si a 10 hombre de la empresa se les hace la prueba del marcador en este cromosoma, ¿cuál esla probabilidad de que exactamente 1 hombre tenga el marcador?
p = dbinom(1, size = 10, prob = 0.3)
round(p, 3)
## [1] 0.121
c) Si a 10 hombres de la empresa se les hace la prueba del marcador en este cromosoma, ¿Cuál es la probabilidad de que más de 1 tenga el marcador?
p = sum(dbinom(0, size = 10, prob = 0.3))
round(1 - p, 3)
## [1] 0.972
d) Grafique la distribución.
a) Señale el tipo de variable aleatoria y la distribución que sigue.
La variable aleatoria es de tipo discreta. La distribución corresponde a una de Poisson.
b) ¿Cuál es la probabdilidad de que haya exactamente cinco llamadas en una hora?
round(dpois(5, 8), 3)
## [1] 0.092
c) ¿Cuál es la probabilidad de que haya tres llamadas o menos en una hora?
round(sum(dpois(c(0, 1, 2, 3), 8)), 3)
## [1] 0.042
Como los tiempos son independientes y normalmente distribuidos, se mantendrán las probabilidades y medidas de dispersión para las 10 cirugías:
tiempo_medio = 129
varianza = 14^2