Running 'doRUnit.R' [168s]
  Running 'testqskewhyp.R' [4s]
  Running 'testskewhypCalcRange.R' [175s]
  Running 'testskewhypParam.R' [0s]
  Running 'testskewhypTailPlotLine.R' [1s]
Running the tests in 'tests/doRUnit.R' failed.
Complete output:
  > #### doRUnit.R --- Run RUnit tests
  > ####------------------------------------------------------------------------
  > 
  > ### Originally follows Gregor Gojanc's example in CRAN package  'gdata'
  > ### and the corresponding section in the R Wiki:
  > ###  http://wiki.r-project.org/rwiki/doku.php?id=developers:runit
  > 
  > ### MM: Vastly changed:  This should also be "runnable" for *installed*
  > ##              package which has no ./tests/
  > ## ----> put the bulk of the code e.g. in  ../inst/unitTests/runTests.R :
  > 
  > ### DJS: Added the possibility of different testing levels
  > ### environment variable LEVEL set by make
  > ### default value of 1 is level used in check and install
  > 
  > if(require("RUnit", quietly=TRUE)) {
  + 
  +   ## --- Setup ---
  + 
  +   wd <- getwd()
  +   pkg <- sub("\\.Rcheck$", '', basename(dirname(wd)))
  +   level <- Sys.getenv("LEVEL")
  + 
  +   library(package=pkg, character.only=TRUE)
  + 
  +   path <- system.file("unitTests", package = pkg)
  + 
  +   stopifnot(file.exists(path), file.info(path.expand(path))$isdir)
  + 
  +   source(file.path(path, "runTests.R"), echo = TRUE)
  + }
  
  > if (require("RUnit", quietly = TRUE)) {
  +     if (Sys.getenv("RCMDCHECK") == "FALSE") {
  +         level <- Sys.getenv("LEVEL")
  +         pkg <- Sys. .... [TRUNCATED] 
  
  
  Executing test function test.skewhypCalcRange  ...  done successfully.
  
  [1] "D:/RCompile/CRANpkg/lib/4.4/SkewHyperbolic/unitTests/report"
  RUNIT TEST PROTOCOL -- Sat Mar 23 10:01:34 2024 
  *********************************************** 
  Number of test functions: 1 
  Number of errors: 0 
  Number of failures: 0 
  
   
  1 Test Suite : 
  SkewHyperbolic unit testing - 1 test function, 0 errors, 0 failures
  Warning messages:
  1: In RNGkind(kind = testSuite$rngKind, normal.kind = testSuite$rngNormalKind) :
    RNGkind: Marsaglia-Multicarry has poor statistical properties
  2: In RNGkind(kind = testSuite$rngKind, normal.kind = testSuite$rngNormalKind) :
    RNGkind: severe deviations from normality for Kinderman-Ramage + Marsaglia-Multicarry
  3: In RNGkind(kind = testSuite$rngKind, normal.kind = testSuite$rngNormalKind) :
    RNGkind: Marsaglia-Multicarry has poor statistical properties
  4: In RNGkind(kind = testSuite$rngKind, normal.kind = testSuite$rngNormalKind) :
    RNGkind: severe deviations from normality for Kinderman-Ramage + Marsaglia-Multicarry
  > 
  > proc.time()
     user  system elapsed 
     0.32    0.10    0.40 
Running the tests in 'tests/testskewhypCalcRange.R' failed.
Complete output:
  > require(SkewHyperbolic)
  Loading required package: SkewHyperbolic
  > ## source("skewhypCalcRange.R")
  > ## source("dskewhyp.R")
  > 
  > ### default case: density = TRUE
  > param <- c(0,1,0,10)
  > (range <- skewhypCalcRange(param = param))
  [1] -2.72453  2.72453
  > round(dskewhyp(range, param = param),7)
  [1] 1e-05 1e-05
  > param <- c(1,1,0,10)
  > (range <- skewhypCalcRange(param = param))
  [1] -1.72453  3.72453
  > round(dskewhyp(range, param = param),7)
  [1] 1e-05 1e-05
  > param <- c(-2,1,0,10)
  > (range <- skewhypCalcRange(param = param))
  [1] -4.7245304  0.7245304
  > round(dskewhyp(range, param = param),7)
  [1] 1e-05 1e-05
  > param <- c(0,1,10,20)
  > (range <- skewhypCalcRange(param = param))
  [1] -0.5892318  3.7388396
  > round(dskewhyp(range, param = param),7)
  [1] 1e-05 1e-05
  > param <- c(0,1,10,10)
  > (range <- skewhypCalcRange(param = param))
  [1] -0.5454435 14.7072786
  > round(dskewhyp(range, param = param),7)
  [1] 1e-05 1e-05
  > param <- c(0,1,20,1)
  > (range <- skewhypCalcRange(param = param))
  [1]    0.5413719 3162.5415536
  > round(dskewhyp(range, param = param),7)
  [1] 1e-05 1e-05
  > param <- c(0,1,-10,20)
  > (range <- skewhypCalcRange(param = param))
  [1] -3.7388396  0.5892318
  > round(dskewhyp(range, param = param),7)
  [1] 1e-05 1e-05
  > param <- c(0,1,-10,10)
  > (range <- skewhypCalcRange(param = param))
  [1] -14.7072786   0.5454435
  > round(dskewhyp(range, param = param),7)
  [1] 1e-05 1e-05
  > param <- c(0,1,-20,1)
  > (range <- skewhypCalcRange(param = param))
  [1] -3162.5415536    -0.5413719
  > round(dskewhyp(range, param = param),7)
  [1] 1e-05 1e-05
  > 
  > ### cdf case: density = FALSE
  > param <- c(0,1,0,10)
  > (range <- skewhypCalcRange(param = param, density = FALSE))
  [1] -2.380245  2.380245
  > round(integrate(dskewhyp, -Inf, range[1], param = param)$value,7)
  [1] 1e-05
  > round(integrate(dskewhyp, range[2], Inf, param = param)$value,7)
  [1] 1e-05
  > param <- c(1,1,0,10)
  > (range <- skewhypCalcRange(param = param, density = FALSE))
  [1] -1.380245  3.380245
  > round(integrate(dskewhyp, -Inf, range[1], param = param)$value,7)
  [1] 1e-05
  > round(integrate(dskewhyp, range[2], Inf, param = param)$value,7)
  [1] 1e-05
  > param <- c(-2,1,0,10)
  > (range <- skewhypCalcRange(param = param, density = FALSE))
  [1] -4.3802445  0.3802445
  > round(integrate(dskewhyp, -Inf, range[1], param = param)$value,7)
  [1] 1e-05
  > round(integrate(dskewhyp, range[2], Inf, param = param)$value,7)
  [1] 1e-05
  > param <- c(0,1,10,20)
  > (range <- skewhypCalcRange(param = param, density = FALSE))
  [1] -0.4433923  3.3871389
  > round(integrate(dskewhyp, -Inf, range[1], param = param)$value,7)
  [1] 1e-05
  > round(integrate(dskewhyp, range[2], Inf, param = param)$value,7)
  [1] 1e-05
  > param <- c(0,1,10,10)
  > (range <- skewhypCalcRange(param = param, density = FALSE))
  [1] -0.3792807 18.5773496
  > round(integrate(dskewhyp, -Inf, range[1], param = param)$value,7)
  [1] 1e-05
  > round(integrate(dskewhyp, range[2], Inf, param = param)$value,7)
  [1] 1e-05
  > param <- c(0,1,-10,20)
  > (range <- skewhypCalcRange(param = param, density = FALSE))
  [1] -3.3871389  0.4433923
  > round(integrate(dskewhyp, -Inf, range[1], param = param)$value,7)
  [1] 1e-05
  > round(integrate(dskewhyp, range[2], Inf, param = param)$value,7)
  [1] 1e-05
  > param <- c(0,1,-10,10)
  > (range <- skewhypCalcRange(param = param, density = FALSE))
  [1] -18.5773496   0.3792807
  > round(integrate(dskewhyp, -Inf, range[1], param = param)$value,7)
  [1] 1e-05
  > round(integrate(dskewhyp, range[2], Inf, param = param)$value,7)
  [1] 1e-05
  > 
  > proc.time()
     user  system elapsed 
     0.29    0.10    0.34