dgeom(x, p) pgeom(q, p) qgeom(prob, p) rgeom(n, p)
p
. dgeom
gives the density, pgeom
gives the distribution function, qgeom
gives the quantile
function, and rgeom
generates random deviates.
The geometric distribution has density
p(x) = p (1-p)^x
for x = 0, 1, 2, ...pp <- sort(c((1:9)/10, 1 - .2^(2:8))) print(qg <- qgeom(pp, p = .2)) for(i in 1:2) print(qg <- qgeom(pgeom(qg, p=.2), p =.2)) Ni <- rgeom(20, p = 1/4); table(factor(Ni, 0:max(Ni)))