Running examples in ‘CharFun-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: cfX_InverseGamma
> ### Title: Characteristic function of Inverse Gamma distribution
> ### Aliases: cfX_InverseGamma
> 
> ### ** Examples
> 
> ## EXAMPLE1 (CF of the InverseGamma distribution with alpha = 2, beta = 2)
> alpha <- 2
> beta <- 2
> t <- seq(-20, 20, length.out = 501)
> plotGraf(function(t)
+   cfX_InverseGamma(t, alpha, beta), t,
+   title = "CF of the InverseGamma distribution with alpha = 2, beta = 2")
> 
> ## EXAMPLE2 (PDF/CDF of the InverseGamma distribution with alpha = 2, beta = 2)
> alpha <- 2
> beta <- 2
> cf <- function(t)
+   cfX_InverseGamma(t, alpha, beta)
> x <- seq(0, 15, length.out = 101)
> prob <- c(0.9, 0.95, 0.99)
> result <- cf2DistGP(cf, x, prob, xMin = 0, N = 2 ^ 10)
Warning in BesselK(sqrt((0 - (0+4i)) * beta * t), alpha) :
  'zbesk(2e+15 - 2e+15i, nu=2)'  -> ierr=4: |z| or nu too large

Warning in BesselK(sqrt((0 - (0+4i)) * beta * t), alpha) :
  'zbesk(2e+15 - 2e+15i, nu=2)'  -> ierr=4: |z| or nu too large

Warning in BesselK(sqrt((0 - (0+4i)) * beta * t), alpha) :
  'zbesk(2e+15 - 2e+15i, nu=2)'  -> ierr=4: |z| or nu too large

Warning in BesselK(sqrt((0 - (0+4i)) * beta * t), alpha) :
  'zbesk(2e+15 - 2e+15i, nu=2)'  -> ierr=4: |z| or nu too large

Warning in BesselK(sqrt((0 - (0+4i)) * beta * t), alpha) :
  'zbesk(2e+15 - 2e+15i, nu=2)'  -> ierr=4: |z| or nu too large

Warning in BesselK(sqrt((0 - (0+4i)) * beta * t), alpha) :
  'zbesk(2e+15 - 2e+15i, nu=2)'  -> ierr=4: |z| or nu too large

Warning in BesselK(sqrt((0 - (0+4i)) * beta * t), alpha) :
  'zbesk(2e+15 - 2e+15i, nu=2)'  -> ierr=4: |z| or nu too large

Warning in BesselK(sqrt((0 - (0+4i)) * beta * t), alpha) :
  'zbesk(2e+15 - 2e+15i, nu=2)'  -> ierr=4: |z| or nu too large

Warning in BesselK(sqrt((0 - (0+4i)) * beta * t), alpha) :
  'zbesk(2e+15 - 2e+15i, nu=2)'  -> ierr=4: |z| or nu too large

Warning in BesselK(sqrt((0 - (0+4i)) * beta * t), alpha) :
  'zbesk(2e+15 - 2e+15i, nu=2)'  -> ierr=4: |z| or nu too large

Warning in BesselK(sqrt((0 - (0+4i)) * beta * t), alpha) :
  'zbesk(2e+15 - 2e+15i, nu=2)'  -> ierr=4: |z| or nu too large

Warning in BesselK(sqrt((0 - (0+4i)) * beta * t), alpha) :
  'zbesk(2e+15 - 2e+15i, nu=2)'  -> ierr=4: |z| or nu too large

> 
> ## EXAMPLE3 (PDF/CDF of the compound Binomial-InverseGamma distribution)
> p <- 0.3
> n <- 25
> alpha <- 2
> beta <- 2
> cfX <- function(t)
+   cfX_InverseGamma(t, alpha, beta)
> cf <- function(t)
+   cfN_Binomial(t, n, p, cfX)
> x <- seq(0, 70, length.out = 101)
> prob <- c(0.9, 0.95, 0.99)
> result <- cf2DistGP(cf, x, prob, isCompound = TRUE, N = 2 ^ 10)
Warning in BesselK(sqrt((0 - (0+4i)) * beta * t), alpha) :
  'zbesk(2e+15 - 2e+15i, nu=2)'  -> ierr=4: |z| or nu too large

Error in if (const > 1e-13) { : missing value where TRUE/FALSE needed
Calls: cf2DistGP
Execution halted