DPQ (version 0.4-3)

dbinom_raw: R's C (Mathlib) dbinom_raw() Binomial Probability pure R Function

Description

A pure R implementation of R's C API (‘Mathlib’ specifically) dbinom_raw() function which computes binomial probabilities and is continuous in x, i.e., also “works” for non-integer x.

Usage

dbinom_raw (x, n, p, q = 1-p, log = FALSE, verbose = getOption("verbose"))

Arguments

x

vector with values typically in 0:n, but here allowed to non-integer values.

n

called size in R's dbinom().

p

called prob in R's dbinom(), the success probability, hence in $[0,1]$.

q

mathemtically the same as $1-p$, but may be (much) more accurate, notably when small.

log

logical indicating if the log() of the resulting probability should be returned; useful notably in case the probability itself would underflow to zero.

verbose

integer indicating the amount of verbosity of diagnostic output, 0 means no output, 1 more, etc.

Value

numeric vector of the same length as x (which may have to be thought of recycled along n, p and/or q.

See Also

Note that our CRAN package Rmpfr provides dbinom, an mpfr-accurate function to be used used instead of R's or this pure R version relying bd0() and stirlerr() where the latter currently only provides accurate double precision accuracy.

Examples

# NOT RUN {
<!-- %% NB: regr.tests in >>> ../tests/dnbinom-tst.R <<< -->
# }
# NOT RUN {
for(n in c(3, 10, 27, 100, 500, 2000, 5000, 1e4, 1e7, 1e10)) {
 x <- if(n <= 2000) 0:n else round(seq(0, n, length.out=2000))
 p <- 3/4
 stopifnot(all.equal(dbinom_raw(x, n, p, q=1-p),
                     dbinom    (x, n, p), tol = 1e-14))
}
n <- 1024 ; x <- 0:n
plot(x, dbinom_raw(x, n, p, q=1-p) - dbinom(x, n, p), type="l", main = "|db_r(x) - db(x)|")
plot(x, dbinom_raw(x, n, p, q=1-p) / dbinom(x, n, p) - 1, type="b", log="y",
     main = "rel.err.  |db_r(x / db(x) - 1)|")
# }