Prawdopodobieństwo, że maszyna wytrzyma X dni

Do fabryki trafia nowa maszyna. Ten typ urządzenia jest bardzo zawodny: każdego dnia istnieje 10% szansy na trwałe uszkodzenie. Jak długo możesz spodziewać się, że będzie działać?

Zauważ, że opisuje to dystrybuanta rozkładu geometrycznego, a zatem funkcja pgeom(). Wyrażenie pgeom(X, .1) opisuje prawdopodobieństwo, że przed dniem awarii maszyna przepracuje X dni (czyli że zepsuje się w dniu X + 1).