Representar la probabilidad de que una máquina siga funcionando
Si fueras supervisor en la fábrica con la máquina poco fiable, te interesaría entender con qué probabilidad seguirá funcionando con el paso del tiempo. En este ejercicio, representarás la probabilidad de que la máquina siga funcionando durante los primeros 30 días.
Este ejercicio forma parte del curso
Fundamentos de probabilidad en R
Instrucciones del ejercicio
- Calcula un vector de probabilidades de que la máquina siga funcionando cada día del 1 al 30 y guárdalo como
still_working. Puedes hacerlo con una sola llamada apgeom()pasando un vector de números como primer argumento. La máquina tiene un 10% de probabilidad de romperse cada día. - Ejecuta el comando
qplot(still_working)para representar la probabilidad de que la máquina siga funcionando en cada uno de los primeros 30 días, con el día en el eje x y la probabilidad en el eje y.
Ejercicio interactivo práctico
Prueba este ejercicio y completa el código de muestra.
# Calculate the probability of machine working on day 1-30
still_working <-
# Plot the probability for days 1 to 30
qplot(1:30, still_working)