Running ‘testthat.R’ [3s/3s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(TreeDimensionTest)
  Loading required package: mlpack
  
  Attaching package: 'mlpack'
  
  The following object is masked from 'package:stats':
  
      kmeans
  
  The following object is masked from 'package:base':
  
      det
  
  > 
  > test_check("TreeDimensionTest")
  Saving _problems/test-separability-10.R
  Saving _problems/test-separability-26.R
  Saving _problems/test-testtrajectory-46.R
  Saving _problems/test-testtrajectory-54.R
  [ FAIL 4 | WARN 0 | SKIP 0 | PASS 12 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-separability.R:10:3'): Separability on linear completely separated MST ──
  <Rcpp::index_out_of_bounds/C++Error/error/condition>
  Error: Object was created without names.
  Backtrace:
      ▆
   1. └─TreeDimensionTest::separability(mat, labels = labels) at test-separability.R:10:3
   2.   └─TreeDimensionTest:::get_edges(x, "boruvka")
  ── Error ('test-separability.R:26:3'): Separability on linear completely mixed MST ──
  <Rcpp::index_out_of_bounds/C++Error/error/condition>
  Error: Object was created without names.
  Backtrace:
      ▆
   1. └─TreeDimensionTest::separability(mat, labels = labels) at test-separability.R:26:3
   2.   └─TreeDimensionTest:::get_edges(x, "boruvka")
  ── Error ('test-testtrajectory.R:46:3'): Accuracy of tree dimension test (test.trajectory) statistics on linear MST ──
  <Rcpp::index_out_of_bounds/C++Error/error/condition>
  Error: Object was created without names.
  Backtrace:
      ▆
   1. ├─testthat::expect_equal(...) at test-testtrajectory.R:46:3
   2. │ └─testthat::quasi_label(enquo(object), label)
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. └─TreeDimensionTest::compute.stats(mat, MST = "boruvka", dim.reduction = "none")
   5.   └─TreeDimensionTest:::getStatistics(x, nrow(x), MST, T)
  ── Error ('test-testtrajectory.R:54:3'): Accuracy of tree dimension test (test.trajectory) statistics on linear MST ──
  <Rcpp::index_out_of_bounds/C++Error/error/condition>
  Error: Object was created without names.
  Backtrace:
      ▆
   1. ├─testthat::expect_equal(...) at test-testtrajectory.R:54:3
   2. │ └─testthat::quasi_label(enquo(object), label)
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. └─TreeDimensionTest::compute.stats(mat, MST = "boruvka", dim.reduction = "none")
   5.   └─TreeDimensionTest:::getStatistics(x, nrow(x), MST, T)
  
  [ FAIL 4 | WARN 0 | SKIP 0 | PASS 12 ]
  Error:
  ! Test failures.
  Execution halted