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