# NOT RUN {
set.seed(1)
pp <- c(0, 0, runif(995), 1, 1, 1)
dpbinom(NULL, pp)
ppbinom(450:550, pp, method = "DivideFFT")
qpbinom(pp, pp, method = "Convolve")
rpbinom(10, pp, method = "RefinedNormal")
# }
Run the code above in your browser using DataLab