inst/unitTests/runit.incompleteBesselK.R

### Unit tests of function incompleteBesselK and incompleteBesselKR

### Functions with name test.* are run by R CMD check or by make if
### LEVEL=1 in call to make
### Functions with name levelntest.* are run by make if
### LEVEL=n in call to make

test.incompleteBesselK <- function()
{
    ## Purpose: Level 1 test of incompleteBesselK
    ## ----------------------------------------------------------------------
    ## Arguments:
    ## ----------------------------------------------------------------------
    ## Author: David Scott, Date: 5 Jan 2012

    ## Original version of the test file which was misplaced

    ## Data from Harris (2008)
    HarrisCase1 <- c(2.225310761266469,
                     0.213894166822940,
                     0.054503469799701,
                     0.023253121507708,
                     0.013042750996080,
                     0.008567534990649,
                     0.006208676806601,
                     0.004801085238177,
                     0.003884072049627,
                     0.003246798003149)

    HarrisCase2 <- 0.000012249987981

    HarrisCase3 <- 0.00000041500106421228

    HarrisCase4 <- 0.000528504325244

    ## Calculations for Harris Case 1
    numIBF <- numeric(10)
    for (i in 0:9){
        ibf <- incompleteBesselK(0.01, 4, i, nmax = 100)
        numIBF[i + 1] <- ibf
    }
    maxDiff <- max(abs(numIBF - HarrisCase1))
    checkTrue(maxDiff <= 10^(-13),
              msg = paste("Harris Case 1: maxDiff =", maxDiff))

    ## Calculations for Harris Case 2
    ibf <- incompleteBesselK(4.95, 5, 2)
    maxDiff <- max(abs(ibf - HarrisCase2))
    checkTrue(maxDiff <= 10^(-13), msg = "Harris Case 2")

    ## Calculations for Harris Case 3
    ibf <- incompleteBesselK(10, 2, 6)
    maxDiff <- max(abs(ibf - HarrisCase3))
    checkTrue(maxDiff <= 10^(-11), msg = "Harris Case 3")

    ## Calculations for Harris Case 4
    ibf <- incompleteBesselK(3.1, 2.6, 5)
    maxDiff <- max(abs(ibf - HarrisCase4))
    checkTrue(maxDiff <= 10^(-13),
              msg = paste("Harris Case 4: maxDiff =", maxDiff))

    ## Newer version of the test file: not necessarily better
    ## But includes testing of the pure R version

    ## Values given by Harris (2008)
    checkEquals(incompleteBesselK(0.01, 4, 0), 2.225310761266469)
    checkEquals(incompleteBesselKR(0.01, 4, 0), 2.225310761266469)

    checkEquals(incompleteBesselK(0.01, 4, 9), 0.003246798003149)
    checkEquals(incompleteBesselKR(0.01, 4, 9), 0.003246798003149)

    checkEquals(incompleteBesselK(4.95, 5, 2), 0.000012249987981)
    checkEquals(incompleteBesselKR(4.95, 5, 2), 0.000012249987981)

    checkEquals(incompleteBesselK(10, 2, 6), 0.0000004150045864731308)
    checkEquals(incompleteBesselKR(10, 2, 6), 0.0000004150045864731308)

    checkEquals(incompleteBesselK(3.1, 2.6, 5), 0.000528504325244)
    checkEquals(incompleteBesselKR(3.1, 2.6, 5), 0.000528504325244)

    ### Check values when x > y using numeric integration
    numIBF <- sapply(0:9, incompleteBesselK, x = 4, y = 0.01)

    besselFn <- function(t, x, y, nu) {
        (t^(-nu - 1))*exp(-x*t - y/t)
    }

    intIBF <- sapply(0:9, integrate, f = besselFn, lower = 1, upper = Inf,
                      x = 4, y = 0.01)
    intIBF <- as.numeric(intIBF[1, ])
    numIBF - intIBF
    ## 1.256649992398273e-11
    checkTrue(max(abs(numIBF - intIBF)) < 10^(-10))

  return()
}

Try the DistributionUtils package in your browser

Any scripts or data that you put into this service are public.

DistributionUtils documentation built on May 2, 2019, 4:46 p.m.