Probabilidad de que una máquina dure X días

Llega una máquina nueva a una fábrica. Este tipo de máquina es muy poco fiable: cada día tiene un 10% de probabilidad de romperse de forma permanente. ¿Cuánto esperarías que durase?

Fíjate en que esto se describe con la distribución acumulada de la distribución geométrica y, por tanto, con la función pgeom(). pgeom(X, .1) describe la probabilidad de que haya X días de funcionamiento antes del día en que se rompe (es decir, que se rompa el día X + 1).