幾何分佈的應用

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
相關文章
相關標籤/搜索