Running ‘testbesselRatio.R’ [0s/0s]
  Running ‘testghypMeanVarMode.R’ [1s/1s]
  Running ‘testghypMom.R’ [0s/0s]
  Running ‘testgigCheckPars.R’ [0s/0s]
  Running ‘testgigMeanVarMode.R’ [1s/1s]
  Running ‘testgigMom.R’ [0s/0s]
  Running ‘testis.wholenumber.R’ [0s/0s]
  Running ‘testmomChangeAbout.R’ [0s/0s]
  Running ‘testmomIntegrated.R’ [0s/0s]
Running the tests in ‘tests/testgigMom.R’ failed.
Complete output:
  > library(HyperbolicDist)
  > 
  > ### Test gigRawMom
  > Theta <- c(-0.5,5,2.5)
  > gigMean(Theta)
  [1] 1.414214
  > gigRawMom(1, Theta)
  [1] 1.414214
  > momIntegrated("gig", order = 1, param = Theta, about = 0)
  [1] 1.414214
  > gigRawMom(2, Theta)
  [1] 2.565685
  > momIntegrated("gig", order = 2, param = Theta, about = 0)
  [1] 2.565685
  > gigRawMom(10, Theta)
  [1] 306061
  > momIntegrated("gig", order = 10, param = Theta, about = 0)
  [1] 306061
  > gigRawMom(2.5, Theta)
  [1] 3.782698
  > momIntegrated("gig", order = 2.5, param = Theta, about = 0, absolute = TRUE)
  [1] 3.782698
  > 
  > ### Test gigMom
  > Theta <- c(-0.5,5,2.5)
  > m1 <- gigRawMom(1, Theta)
  > m1
  [1] 1.414214
  > gigMom(1, Theta)
  [1] 1.414214
  > gigMom(2, Theta, m1)
  [1] 0.5656854
  > m2 <- momIntegrated("gig", order = 2, param = Theta, about = m1)
  > m2
  [1] 0.5656854
  > gigMom(1, Theta, m1)
  [1] 0
  > gigVar(Theta)
  [1] 0.5656854
  > gigMom(3, Theta, m1)
  [1] 0.6788225
  > momIntegrated("gig", order = 3, param = Theta, about = m1)
  [1] 0.6788225
  > #gigMom(2.5, Theta, m1)
  > 
  > ### Test gammaRawMom
  > shape <- 2
  > rate <- 3
  > Theta <- c(shape, rate)
  > gammaRawMom(1, shape, rate)
  [1] 0.6666667
  > momIntegrated("gamma", order = 1, param = Theta, about = 0)
  [1] 0.6666667
  > gammaRawMom(2, shape, rate)
  [1] 0.6666667
  > momIntegrated("gamma", order = 2, param = Theta, about = 0)
  [1] 0.6666667
  > gammaRawMom(10, shape, rate)
  [1] 675.9945
  > momIntegrated("gamma", order = 10, param = Theta, about = 0)
  [1] 675.9945
  > 
  > ### Test gigMom for gamma case
  > shape <- 2
  > rate <- 3
  > Theta <- c(shape, rate)
  > m1 <- gammaRawMom(1, shape, rate)
  > m1
  [1] 0.6666667
  > gigMom(1, c(shape, 0, 2*rate))
  [1] 0.6666667
  > gigMom(2, c(shape, 0, 2*rate), about = m1)
  [1] 0.2222222
  > m2 <- momIntegrated("gamma", order = 2, param = Theta, about = m1)
  > m2
  [1] 0.2222222
  > gigMom(1, c(shape, 0, 2*rate), about = m1)
  [1] 0
  > gigMom(3, c(shape, 0, 2*rate), about = m1)
  [1] 0.1481481
  > momIntegrated("gamma", order = 3, param = Theta, about = m1)
  [1] 0.1481481
  > 
  > ### Test gigRawMom for gamma case
  > library(actuar)
  Error: package or namespace load failed for 'actuar' in dyn.load(file, DLLpath = DLLpath, ...):
   unable to load shared object '/home/hornik/tmp/R.check/r-patched-gcc/Work/build/Packages/expint/libs/expint.so':
    /home/hornik/tmp/R.check/r-patched-gcc/Work/build/Packages/expint/libs/expint.so: failed to map segment from shared object
  Execution halted