Wizualizacja prawdopodobieństwa sprawności maszyny
Wyobraź sobie, że jesteś kierownikiem w fabryce, w której działa zawodna maszyna. Warto wiedzieć, jak duże jest prawdopodobieństwo, że maszyna pozostanie sprawna w kolejnych dniach. W tym ćwiczeniu przedstawisz to prawdopodobieństwo na wykresie dla pierwszych 30 dni.
To ćwiczenie jest częścią kursu
Podstawy rachunku prawdopodobieństwa w R
Instrukcje do ćwiczenia
- Oblicz wektor prawdopodobieństw tego, że maszyna nadal działa w każdym dniu od 1 do 30, i zapisz go jako
still_working. Możesz to zrobić jednym wywołaniem funkcjipgeom(), przekazując wektor liczb jako pierwszy argument. Maszyna ma 10% szans na awarię każdego dnia. - Uruchom polecenie
qplot(still_working), aby zwizualizować prawdopodobieństwo sprawności maszyny w każdym z pierwszych 30 dni – z numerem dnia na osi x i prawdopodobieństwem na osi y.
Interaktywne ćwiczenie praktyczne
Spróbuj tego ćwiczenia, uzupełniając ten przykładowy kod.
# 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)