dhyper(x, m, n, k, log = FALSE)
phyper(q, m, n, k, lower.tail = TRUE, log.p = FALSE)
qhyper(p, m, n, k, lower.tail = TRUE, log.p = FALSE)
rhyper(nn, m, n, k)
length(nn) > 1
, the length
is taken to be the number required.dhyper
gives the density,
phyper
gives the distribution function,
qhyper
gives the quantile function, and
rhyper
generates random deviates.Invalid arguments will result in return value NaN
, with a warning.The length of the result is determined by n
for
rhyper
, 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.
dhyper
computes via binomial probabilities, using code
contributed by Catherine Loader (see dbinom
). phyper
is based on calculating dhyper
and
phyper(...)/dhyper(...)
(as a summation), based on ideas of Ian
Smith and Morten Welinder. qhyper
is based on inversion. rhyper
is based on a corrected version of Kachitvichyanukul, V. and Schmeiser, B. (1985).
Computer generation of hypergeometric random variates.
Journal of Statistical Computation and Simulation,
22, 127--145.m
, n
and k
(named $Np$, $N-Np$, and
$n$, respectively in the reference below) is given by
$$
p(x) = \left. {m \choose x}{n \choose k-x} \right/ {m+n \choose k}%
$$
for $x = 0, \ldots, k$.The quantile is defined as the smallest value $x$ such that $F(x) \ge p$, where $F$ is the distribution function.
m <- 10; n <- 7; k <- 8
x <- 0:(k+1)
rbind(phyper(x, m, n, k), dhyper(x, m, n, k))
all(phyper(x, m, n, k) == cumsum(dhyper(x, m, n, k))) # FALSE
## but error is very small:
signif(phyper(x, m, n, k) - cumsum(dhyper(x, m, n, k)), digits = 3)
Run the code above in your browser using DataLab