DiSCos

tests

Running ‘testthat.R’ [165s/204s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > # This file is part of the standard setup for testthat.
  > # It is recommended that you do not modify it.
  > #
  > # Where should you do additional test configuration?
  > # Learn more about the roles of various files in:
  > # * https://r-pkgs.org/testing-design.html#sec-tests-files-overview
  > # * https://testthat.r-lib.org/articles/special-files.html
  > 
  > library(testthat)
  > library(DiSCos)
  Loading required package: data.table
  
  Attaching package: 'data.table'
  
  The following object is masked from 'package:base':
  
      %notin%
  
  Loading required package: ggplot2
  > 
  > options(datatable.auto.thread = 1)  # Limit data.table to 1 thread
  > Sys.setenv(OMP_NUM_THREADS = 1) # limit environment to 1 thread
  > 
  > test_check("DiSCos")
  Saving _problems/test-DiSCo-13.R
  Warning: in parln3(lmom, ...): L-skew is negative, try reversing the data Y <- -X, to avoid 
...[truncated]...
3 *
  ---
  Signif. codes: `*' Confidence band for distribution differences does not cover 0
  
  No permutation test performed. 
  Number of pre-treatment periods: 1
  Number of post-treatment periods: 1
  N=10,000
  [ FAIL 1 | WARN 35 | SKIP 0 | PASS 113 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-DiSCo.R:13:3'): mixture weights sum up to 1 ────────────────────
  Error in `quantile.default(x, probs = (1 - cl)/2)`: missing values and NaN's not allowed if 'na.rm' is FALSE
  Backtrace:
      ▆
   1. └─DiSCos::DiSCo(...) at test-DiSCo.R:13:3
   2.   └─DiSCos:::parseBoots(...)
   3.     └─DiSCos (local) getCIs(q_boot, cl, q_d, uniform)
   4.       └─base::apply(...)
   5.         └─DiSCos (local) FUN(newX[, i], ...)
   6.           ├─stats::quantile(x, probs = (1 - cl)/2)
   7.           └─stats:::quantile.default(x, probs = (1 - cl)/2)
  
  [ FAIL 1 | WARN 35 | SKIP 0 | PASS 113 ]
  Error:
  ! Test failures.
  Execution halted