De kans grafisch weergeven dat een machine nog werkt

Als je voorman was in de fabriek met die onbetrouwbare machine, wil je misschien weten hoe groot de kans is dat de machine het na verloop van tijd blijft doen. In deze oefening plot je de kans dat de machine nog werkt tijdens de eerste 30 dagen.

Deze oefening maakt deel uit van de cursus

Basis van kansrekening in R

Cursus bekijken

Oefeninstructies

Bereken een vector met kansen dat de machine op elke dag van dag 1 t/m 30 nog werkt, en sla die op als still_working. Je kunt dit met één aanroep van pgeom() doen door een vector met getallen als eerste argument door te geven. De machine heeft elke dag 10% kans om kapot te gaan.
Voer het commando qplot(still_working) uit om de kans te tekenen dat de machine nog werkt op elk van de eerste 30 dagen, met de dag op de x-as en de kans op de y-as.

Praktische interactieve oefening

Probeer deze oefening eens door deze voorbeeldcode in te vullen.

# 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)

Code bewerken en uitvoeren