Running ‘testthat.R’
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(MTSYS)
  > 
  > test_check("MTSYS")
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error (test-general_MT.R:8:3): general_MT ───────────────────────────────────
  Error in `FUN(x, aperm(array(STATS, dims[perm]), order(perm)), ...)`: non-numeric argument to binary operator
  Backtrace:
      █
   1. └─MTSYS::general_MT(...) test-general_MT.R:8:2
   2.   └─MTSYS:::transforms_data(unit_space_data)
   3.     ├─base::scale(data, unit_space_center, unit_space_scale)
   4.     └─base::scale.default(data, unit_space_center, unit_space_scale)
   5.       └─base::sweep(x, 2L, center, check.margin = FALSE)
  ── Error (test-general_MT.R:29:3): general_diagnosis.MT without passing newdata ──
  Error in `FUN(x, aperm(array(STATS, dims[perm]), order(perm)), ...)`: non-numeric argument to binary operator
  Backtrace:
      █
   1. └─MTSYS::general_MT(...) test-general_MT.R:29:2
   2.   └─MTSYS:::transforms_data(unit_space_data)
   3.     ├─base::scale(data, unit_space_center, unit_space_scale)
   4.     └─base::scale.default(data, unit_space_center, unit_space_scale)
   5.       └─base::sweep(x, 2L, center, check.margin = FALSE)
  ── Error (test-general_MT.R:54:3): general_diagnosis.MT with passing newdata ───
  Error in `FUN(x, aperm(array(STATS, dims[perm]), order(perm)), ...)`: non-numeric argument to binary operator
  Backtrace:
      █
   1. └─MTSYS::general_MT(...) test-general_MT.R:54:2
   2.   └─MTSYS:::transforms_data(unit_space_data)
   3.     ├─base::scale(data, unit_space_center, unit_space_scale)
   4.     └─base::scale.default(data, unit_space_center, unit_space_scale)
   5.       └─base::sweep(x, 2L, center, check.margin = FALSE)
  ── Error (test-general_T.R:14:3): general_T ────────────────────────────────────
  Error in `FUN(x, aperm(array(STATS, dims[perm]), order(perm)), ...)`: non-numeric argument to binary operator
  Backtrace:
      █
   1. └─MTSYS::general_T(...) test-general_T.R:14:2
   2.   └─MTSYS:::transforms_independent_data(signal_space_data_x)
   3.     ├─base::scale(data, unit_space_center, FALSE)
   4.     └─base::scale.default(data, unit_space_center, FALSE)
   5.       └─base::sweep(x, 2L, center, check.margin = FALSE)
  ── Error (test-general_T.R:39:3): general_forecasting.T without passing newdata ──
  Error in `FUN(x, aperm(array(STATS, dims[perm]), order(perm)), ...)`: non-numeric argument to binary operator
  Backtrace:
      █
   1. └─MTSYS::general_T(...) test-general_T.R:39:2
   2.   └─MTSYS:::transforms_independent_data(signal_space_data_x)
   3.     ├─base::scale(data, unit_space_center, FALSE)
   4.     └─base::scale.default(data, unit_space_center, FALSE)
   5.       └─base::sweep(x, 2L, center, check.margin = FALSE)
  ── Error (test-general_T.R:67:3): general_forecasting.T with passing newdata ───
  Error in `FUN(x, aperm(array(STATS, dims[perm]), order(perm)), ...)`: non-numeric argument to binary operator
  Backtrace:
      █
   1. └─MTSYS::general_T(...) test-general_T.R:67:2
   2.   └─MTSYS:::transforms_independent_data(signal_space_data_x)
   3.     ├─base::scale(data, unit_space_center, FALSE)
   4.     └─base::scale.default(data, unit_space_center, FALSE)
   5.       └─base::sweep(x, 2L, center, check.margin = FALSE)
  ── Error (test-generates_dimensionality_reduction_function.R:15:3): generates_dimensionality_reduction_function ──
  Error in `data %*% center`: requires numeric/complex matrix/vector arguments
  Backtrace:
      █
   1. └─MTSYS:::reduces_dimensionality(iris_test) test-generates_dimensionality_reduction_function.R:15:2
   2.   └─MTSYS:::generates_dimension_reduction_data(data, unit_space_center)
  ── Error (test-generates_transformation_functions_Tb.R:5:3): generates_transformation_functions_Tb ──
  Error in `FUN(x, aperm(array(STATS, dims[perm]), order(perm)), ...)`: non-numeric argument to binary operator
  Backtrace:
      █
   1. └─MTSYS::generates_transformation_functions_Tb(...) test-generates_transformation_functions_Tb.R:5:2
   2.   └─base::apply(sample_data, 1, get_eta, sample_data)
   3.     └─MTSYS:::FUN(newX[, i], ...)
   4.       └─MTSYS::general_T(...)
   5.         └─MTSYS:::transforms_independent_data(signal_space_data_x)
   6.           ├─base::scale(data, unit_space_center, FALSE)
   7.           └─base::scale.default(data, unit_space_center, FALSE)
   8.             └─base::sweep(x, 2L, center, check.margin = FALSE)
  
  [ FAIL 8 | WARN 12 | SKIP 0 | PASS 1 ]
  Error: Test failures
  Execution halted