Running 'testthat.R' [97s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(distr6)
  
  -----------------------------
  	distr6 v1.3.2
  
  Get started:	?distr6
  Changelog:	distr6News()
  -----------------------------
  
  
  Attaching package: 'distr6'
  
  The following object is masked from 'package:stats':
  
      qqplot
  
  The following object is masked from 'package:grDevices':
  
      pdf
  
  The following objects are masked from 'package:base':
  
      mode, truncate
  
  > 
  > test_check("distr6")
  -- 1. Error: statistics (@test-DistEmpirical.R#22)  ----------------------------
  subscript out of bounds
  Backtrace:
   1. testthat::expect_equal(emp$mean(), mean(1:10))
   4. emp$mean()
   5. R62S3:::mean(self$support()$elements())
   6. base::do.call(get("object")[["mean"]], args)
  
  -- 2. Error: statistics (@test-DistWeightedDiscrete.R#24)  ---------------------
  subscript out of bounds
  Backtrace:
   1. testthat::expect_equal(gd$mean(), mean(1:10))
   4. R62S3:::mean(1:10)
   5. base::do.call(get("object")[["mean"]], args)
  
  -- 3. Error: initialize (@test-ParameterSet.R#17)  -----------------------------
  'what' must be a function or character string
  Backtrace:
    1. testthat::expect_output(ps$print())
   10. ps$print()
   11. R62S3:::print(subset(ps, select = !(names(ps) %in% hide_cols)))
   12. base::do.call(get("object")[["print"]], args)
  
  -- 4. Error: getters (@test-SetInterval.R#23)  ---------------------------------
  subscript out of bounds
  Backtrace:
    1. testthat::expect_output(si$print())
   10. si$print()
   11. R62S3:::print(self$getSymbol())
   12. base::do.call(get("object")[["print"]], args)
  
  -- 5. Error: check pdf (@test-mixture.R#15)  -----------------------------------
  subscript out of bounds
  Backtrace:
   1. testthat::expect_equal(...)
   4. R62S3:::mean(c(Binomial$new()$pdf(1), Exponential$new()$pdf(1)))
   5. base::do.call(get("object")[["mean"]], args)
  
  -- 6. Error: check cdf (@test-mixture.R#25)  -----------------------------------
  subscript out of bounds
  Backtrace:
   1. testthat::expect_equal(...)
   4. R62S3:::mean(c(Binomial$new()$cdf(1), Exponential$new()$cdf(1)))
   5. base::do.call(get("object")[["mean"]], args)
  
  -- 7. Error: alternate constructor (@test-mixture.R#39)  -----------------------
  subscript out of bounds
  Backtrace:
   1. testthat::expect_equal(...)
   4. MixtureDistribution$new(list(Bernoulli$new(0.2), Bernoulli$new(0.7)))$pdf(1)
   5. private$.pdf(x1[self$liesInSupport(x1, all = F)])
   6. R62S3:::mean(sapply(self$wrappedModels(), function(y) y$pdf(x1)))
   7. base::do.call(get("object")[["mean"]], args)
  
  -- 8. Error: wrap a wrapper (@test-wrapper.R#50)  ------------------------------
  'what' must be a function or character string
  Backtrace:
    1. testthat::expect_warning(x$pdf(2, 1))
    6. x$pdf(2, 1)
    7. private$.pdf(x1, ...)
    8. self$wrappedModels()[[i]]$pdf(get(paste0("x", i)))
    9. private$.pdf(x1[self$liesInSupport(x1, all = F)])
   10. R62S3:::mean(sapply(self$wrappedModels(), function(y) y$pdf(x1)))
   11. base::do.call(get("object")[["mean"]], args)
  
  == testthat results  ===========================================================
  [ OK: 2175 | SKIPPED: 0 | WARNINGS: 0 | FAILED: 8 ]
  1. Error: statistics (@test-DistEmpirical.R#22) 
  2. Error: statistics (@test-DistWeightedDiscrete.R#24) 
  3. Error: initialize (@test-ParameterSet.R#17) 
  4. Error: getters (@test-SetInterval.R#23) 
  5. Error: check pdf (@test-mixture.R#15) 
  6. Error: check cdf (@test-mixture.R#25) 
  7. Error: alternate constructor (@test-mixture.R#39) 
  8. Error: wrap a wrapper (@test-wrapper.R#50) 
  
  Error: testthat unit tests failed
  Execution halted