Revision 04bbc417cf2927b827660bc07743429783569aec authored by HwB on 10 February 2013, 00:00:00 UTC, committed by Gabor Csardi on 10 February 2013, 00:00:00 UTC
1 parent 0e3ae6b
Raw File
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)
}
back to top