P(燈泡在任意一天報廢)=0.001,則該燈泡至少能用30天的機率P(X>=30): spa
Y<-dgeom(30,0.001)
> X<-pgeom(30,0.001,lower.tail=FALSE)
> X+Y
[1] 0.970431 code
> 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
class
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