Last chance! 50% off unlimited learning
Sale ends in
size
and prob
. This is conventionally interpreted as the number of size
trials.
dbinom(x, size, prob, log = FALSE)
pbinom(q, size, prob, lower.tail = TRUE, log.p = FALSE)
qbinom(p, size, prob, lower.tail = TRUE, log.p = FALSE)
rbinom(n, size, prob)
length(n) > 1
, the length
is taken to be the number required.dbinom
gives the density, pbinom
gives the distribution
function, qbinom
gives the quantile function and rbinom
generates random deviates. If size
is not an integer, NaN
is returned.
The length of the result is determined by n
for
rbinom
, and is the maximum of the lengths of the
numerical arguments for the other functions.
The numerical arguments other than n
are recycled to the
length of the result. Only the first elements of the logical
arguments are used.
dbinom
a saddle-point expansion is used: see Catherine Loader (2000). Fast and Accurate Computation of
Binomial Probabilities; available from
pbinom
uses pbeta
.
qbinom
uses the Cornish--Fisher Expansion to include a skewness
correction to a normal approximation, followed by a search.
rbinom
(for size < .Machine$integer.max
) is based on
Kachitvichyanukul, V. and Schmeiser, B. W. (1988) Binomial random variate generation. Communications of the ACM, 31, 216--222.
For larger values it uses inversion.
size
$= n$ and
prob
$= p$ has density
choose
in R. If an element of x
is not integer, the result of dbinom
is zero, with a warning.
$p(x)$ is computed using Loader's algorithm, see the reference below.
The quantile is defined as the smallest value $x$ such that $F(x) \ge p$, where $F$ is the distribution function.
dnbinom
for the negative binomial, and
dpois
for the Poisson distribution.require(graphics)
# Compute P(45 < X < 55) for X Binomial(100,0.5)
sum(dbinom(46:54, 100, 0.5))
## Using "log = TRUE" for an extended range :
n <- 2000
k <- seq(0, n, by = 20)
plot (k, dbinom(k, n, pi/10, log = TRUE), type = "l", ylab = "log density",
main = "dbinom(*, log=TRUE) is better than log(dbinom(*))")
lines(k, log(dbinom(k, n, pi/10)), col = "red", lwd = 2)
## extreme points are omitted since dbinom gives 0.
mtext("dbinom(k, log=TRUE)", adj = 0)
mtext("extended range", adj = 0, line = -1, font = 4)
mtext("log(dbinom(k))", col = "red", adj = 1)
Run the code above in your browser using DataLab