One-Altered Logarithmic Distribution
Density, distribution function, quantile function and random generation
for the one-altered positive-Poisson distribution with parameter pobs1.
doapospois(x, lambda, pobs1 = 0, log = FALSE) poapospois(q, lambda, pobs1 = 0) qoapospois(p, lambda, pobs1 = 0) roapospois(n, lambda, pobs1 = 0)
The probability function of Y is 1 with probability pobs1,
else a 1-truncated
positive-Poisson(lambda)
distribution.
doapospois gives the density and
poapospois gives the distribution function,
qoapospois gives the quantile function, and
roapospois generates random deviates.
The argument pobs1 is recycled to the required length, and
must have values which lie in the interval [0,1].
T. W. Yee
lambda <- 3; pobs1 <- 0.30; x <- (-1):7
doapospois(x, lambda = lambda, pobs1 = pobs1)
table(roapospois(100, lambda = lambda, pobs1 = pobs1))
## Not run: x <- 0:10
barplot(rbind(doapospois(x, lambda = lambda, pobs1 = pobs1),
dpospois(x, lambda = lambda)),
beside = TRUE, col = c("blue", "orange"), cex.main = 0.7, las = 1,
ylab = "Probability", names.arg = as.character(x),
main = paste("OAPP(lambda = ", lambda, ", pobs1 = ", pobs1,
") [blue] vs", " PosPoisson(lambda = ", lambda,
") [orange] densities", sep = ""))
## End(Not run)Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.