기계가 여전히 작동할 확률 그리기

신뢰성이 낮은 기계가 있는 공장의 현장 감독이라면, 시간이 지나도 기계가 계속 작동할 가능성을 알고 싶을 거예요. 이 연습 문제에서는 처음 30일 동안 기계가 여전히 작동 중일 확률을 그래프로 그려 보겠습니다.

이 연습은 강의의 일부입니다

R로 배우는 확률 기초

1일부터 30일까지 각 날짜에 기계가 여전히 작동 중일 확률 벡터를 계산해 still_working으로 저장하세요. 첫 번째 인수에 숫자 벡터를 넘겨 pgeom()을 한 번만 호출해도 됩니다. 기계는 매일 10% 확률로 고장 납니다.
qplot(still_working) 명령을 실행해 처음 30일 동안의 각 날짜에 대해 x축에는 날짜, y축에는 확률이 오도록 기계가 여전히 작동할 확률을 그래프로 나타내세요.

이 예제를 이 샘플 코드를 완성하여 풀어보세요.

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