Exercise

# Graphing the probability that a machine still works

If you were a supervisor at the factory with the unreliable machine, you might want to understand how likely the machine is to keep working over time. In this exercise, you'll plot the probability that the machine is still working across the first 30 days.

Instructions

**100 XP**

- Calculate a vector of probabilities of whether the machine is
*still working*on each day from day 1 to 30, and save it as`still_working`

. You can do this with a single call to`pgeom()`

by passing in a vector of numbers as the first argument. The machine has a 10% chance of breaking each day. - Run the command
`qplot(still_working)`

to graph the probability of the machine still working on each of the first 30 days, with the day on the x-axis and the probability on the y-axis.