几何分布的应用

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
相关文章
相关标签/搜索