Probabilité qu’une machine dure X jours

Une nouvelle machine arrive dans une usine. Ce type de machine est très peu fiable : chaque jour, elle a 10 % de chances de tomber définitivement en panne. Combien de temps pensez-vous qu’elle va durer ?

Remarquez que cela correspond à la fonction de répartition cumulative de la loi géométrique, et donc à la fonction pgeom(). pgeom(X, .1) donne la probabilité qu’il y ait X jours de fonctionnement avant le jour de la panne (autrement dit, qu’elle tombe en panne le jour X + 1).