Running 'test-CONF.R' [0s]
  Running 'test-HDR.R' [1s]
  Running 'test-custom.R' [0s]
  Running 'test-extraDistr.R' [1s]
  Running 'test-invgamma.R' [0s]
  Running 'test-vgam.R' [1s]
Running the tests in 'tests/test-CONF.R' failed.
Complete output:
  > 
  > stopifnot(all.equal(
  +   stat.extend::CONF.mean(.05, mtcars$mpg, N=1000),
  +   structure(list(list(l = 7.20563283519216, r = 32.9756171648078, 
  +                       lc = TRUE, rc = TRUE)), class = c("ci", "interval"), domain = "R", method = NA_character_, data = "Interval uses 32 data points from data mtcars$mpg with sample variance = 36.3241 and assumed kurtosis = 3.0000", confidence = 0.95, parameter = "mean for population of size 1000")
  + ))
  > 
  > stopifnot(all.equal(
  +   stat.extend::CONF.var(.05, mtcars$mpg, N=1000),
  +   structure(list(list(l = 21.4570190835676, r = 59.4753423696206, 
  +                       lc = TRUE, rc = TRUE)), class = c("ci", "interval"), domain = "R", method = "Computed using nlm optimisation with 9 iterations (code = 1)", data = "Interval uses 32 data points from data mtcars$mpg with sample variance = 36.3241 and assumed kurtosis = 3.0000", confidence = 0.95, parameter = "variance for population of size 1000")
  + ))
  Error: stat.extend::CONF.var(0.05, mtcars$mpg, N = 1000) and structure(list(list(l = 21.4570190835676, r = 59.4753423696206,  .... are not equal:
    Attributes: < Component "data": 1 string mismatch >
    Attributes: < Component "method": 1 string mismatch >
    Component 1: Component 1: Mean relative difference: 0.02790654
    ....
  Execution halted
Running the tests in 'tests/test-custom.R' failed.
Complete output:
  > 
  > stopifnot(all.equal(
  +   stat.extend::HDR.monotone(.95, Q=qexp, 1)[[1]],
  +   stat.extend::HDR.exp(.95, 1)[[1]]
  + ))
  > 
  > stopifnot(all.equal(
  +   stat.extend::HDR.unimodal(.95, Q=qnorm, f=dnorm, mean=0, sd=1)[[1]],
  +   stat.extend::HDR.norm(.95)[[1]]
  + ))
  > 
  > stopifnot(all.equal(
  +   stat.extend::HDR.bimodal(.95, Q=qbeta, f=dbeta, shape1=.5, shape2=.5)[1:2],
  +   stat.extend::HDR.beta(.95, .5, .5)[1:2]
  + ))
  > 
  > 
  > stopifnot(all.equal(
  +   stat.extend::HDR.discrete(.95, Q=qpois, f=dpois, lambda=1)[1:2],
  +   stat.extend::HDR.pois(.95, 1)[1:2]
  + ))
  > 
  > stopifnot(all.equal(
  +   stat.extend::HDR.discrete.unimodal(.95, Q=qpois, F=ppois, lambda=1)[1:2],
  +   stat.extend::HDR.pois(.95, 1)[1:2]
  + ))
  > 
  > # Below has 0 prob at 2; shall not throw an error.
  > Q = function(p) ifelse(p <= .08, 1, ifelse(p <= .14, 3, ifelse(p <= .4, 4, 5)))
  > f = function(x) c(.08, 0, .06, .26, .6)[floor(x)]
  > 
  > stopifnot(inherits(  
  +   stat.extend:::HDR.discrete(.95, Q, f),
  +   "set"
  + ))
  Error in stat.extend:::HDR.discrete(0.95, Q, f) : 
    Error: supp.min should be numeric
  Calls: stopifnot -> inherits -> <Anonymous>
  Execution halted