機械がX日間もつ確率

新しい機械が工場に届きました。このタイプの機械は非常に不安定で、毎日10%の確率で完全に故障します。どのくらいの期間もつと期待できますか？

これは幾何分布の累積分布で表せるため、pgeom() 関数を使います。pgeom(X, .1) は、故障する日までに稼働日が X 日ある（つまり、X + 1 日目に壊れる）確率を表します。