add examples (incl. simple tests)

man/binomQ.Rd

@@ -25,6 +25,18 @@ dbinomQ(x, size, prob, log = FALSE)
 \seealso{
   \code{\link{chooseZ}}; \R's (\pkg{stats} package) \code{\link{dbinom}()}.
 }
-%% \examples{
-%% TODO
-%% }
+\examples{
+dbinomQ(0:8,8, as.bigq(1,2))
+##  1/256  1/32   7/64   7/32   35/128 7/32   7/64   1/32   1/256
+
+ph16. <- dbinomQ(0:16, size=16, prob = 1/2)  # innocous warning
+ph16  <- dbinomQ(0:16, size=16, prob = as.bigq(1,2))
+ph16.75 <- dbinomQ(0:16, size=16, prob = as.bigq(3,4))
+stopifnot(exprs = {
+   identical(ph16, ph16.)
+   identical(ph16,
+         dbinomQ(0:16, size=16, prob = as.bigz(1)/2))
+   all.equal(dbinom(0:16, 16, prob=1/2), asNumeric(ph16),    tol=1e-15)
+   all.equal(dbinom(0:16, 16, prob=3/4), asNumeric(ph16.75), tol=1e-15)
+})
+}