P(灯泡在任意一天报废)=0.001,则该灯泡至少能用30天的概率P(X>=30):
Y<-dgeom(30,0.001)
> X<-pgeom(30,0.001,lower.tail=FALSE)
> X+Y
[1] 0.970431
> Y<-dgeom(30,0.001)
> X<-pgeom(30,0.001,lower.tail=FALSE)
> X+Y
[1] 0.970431> Y<-dgeom(30,0.001)
> X<-pgeom(30,0.001,lower.tail=FALSE)
> X+Y
[1] 0.970431> Y<-dgeom(30,0.001)
> X<-pgeom(30,0.001,lower.tail=FALSE)
> X+Y
[1] 0.970431> Y<-dgeom(30,0.001)
> X<-pgeom(30,0.001,lower.tail=FALSE)
> X+Y
[1] 0.970431> Y<-dgeom(30,0.001)
> X<-pgeom(30,0.001,lower.tail=FALSE)
> X+Y
[1] 0.970431> Y<-dgeom(30,0.001)
> X<-pgeom(30,0.001,lower.tail=FALSE)
> X+Y
[1] 0.970431
Y<-dgeom(30,0.001)
Y<-dgeom(30,0.001)
Y<-dgeom(30,0.001)
> Y<-dgeom(30,0.001) > X<-pgeom(30,0.001,lower.tail=FALSE) > X+Y [1] 0.970431
> Y<-dgeom(30,0.001) > X<-pgeom(30,0.001,lower.tail=FALSE) > X+Y [1] 0.970431
> Y<-dgeom(30,0.001) > X<-pgeom(30,0.001,lower.tail=FALSE) > X+Y [1] 0.970431
> Y<-dgeom(30,0.001) > X<-pgeom(30,0.001,lower.tail=FALSE) > X+Y [1] 0.970431
> Y<-dgeom(30,0.001) > X<-pgeom(30,0.001,lower.tail=FALSE) > X+Y [1] 0.970431
> Y<-dgeom(30,0.001)
> X<-pgeom(30,0.001,lower.tail=FALSE)
> X+Y
[1] 0.970431> Y<-dgeom(30,0.001)
> X<-pgeom(30,0.001,lower.tail=FALSE)
> X+Y
[1] 0.970431