기계가 X일 동안 버틸 확률

새 기계가 공장에 들어왔습니다. 이 기계 유형은 매우 신뢰성이 낮아서 매일 영구 고장이 발생할 확률이 10%입니다. 이 기계는 보통 얼마나 오래 버틸까요?

이 상황은 기하분포의 누적분포로 설명되며, 따라서 pgeom() 함수를 사용합니다. pgeom(X, .1)은 고장이 발생하기 전까지 작동한 날이 X일일 확률(즉, X + 1일째에 고장 날 확률)을 의미합니다.