## Accuracy tests
x <- 3
lambda <- 3/2
lower <- sapply(lambda, function(w.)
gamma_inc_err(x, lambda = w., 200, lower = TRUE))
upper <- sapply(lambda, function(w.)
gamma_inc_err(x, lambda = w., 200, lower = FALSE))
## sum of two parts
(lower + upper)
## equals the whole function
(gamma(lambda))
Run the code above in your browser using DataLab