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)
Same Unif
.
Same as Otpospois
).
Probability of (an observed) one, called pobs1 = 0
corresponds
to the response having a 1-truncated positive-Poisson distribution.
doapospois
gives the density and
poapospois
gives the distribution function,
qoapospois
gives the quantile function, and
roapospois
generates random deviates.
The probability function of pobs1
,
else a 1-truncated
positive-Poisson(lambda)
distribution.
# NOT RUN {
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 = ""))
# }
Run the code above in your browser using DataLab