https://github.com/cran/pracma
Tip revision: 1305bf51cc38adca02d0c8a834c61a4c7e038309 authored by Hans W. Borchers on 08 February 2015, 00:00:00 UTC
version 1.8.3
version 1.8.3
Tip revision: 1305bf5
nchoosek.R
##
## n c h o o s e k . R Binomial Coefficients
##
nchoosek <- function(n, k) {
stopifnot(is.numeric(n), length(n) == 1, n >= 0, floor(n) == ceiling(n),
is.numeric(k), length(k) == 1, k >= 0, floor(k) == ceiling(k))
if (k > n)
stop("Argument 'k' must be an integer between 0 and 'n'.")
choose(n, k)
}