Running ‘testthat-prediction.R’ [33s/64s]
Running the tests in ‘tests/testthat-prediction.R’ failed.
Complete output:
  > library("testthat")
  > library("prediction")
  > test_check("prediction")
   cyl     x
     4 26.38
     6 20.63
     8 14.88
  (Intercept)    tensionM    tensionH 
     36.38889   -10.00000   -14.72222 
  [ FAIL 4 | WARN 2 | SKIP 0 | PASS 190 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('tests-methods.R:40:9'): Test prediction() for 'glimQL' ──────────────
  Error in `model[["call"]]`: this S4 class is not subsettable
  Backtrace:
      ▆
   1. ├─prediction::prediction(m) at tests-methods.R:40:9
   2. └─prediction:::prediction.glimQL(m)
   3.   ├─prediction::find_data(model, parent.frame())
   4.   └─prediction:::find_data.default(model, parent.frame())
  ── Error ('tests-methods.R:130:9'): Test prediction() for 'naiveBayes' ─────────
  Error in `match.arg(type)`: 'arg' should be one of "class", "raw"
  Backtrace:
      ▆
   1. ├─prediction::prediction(m) at tests-methods.R:130:9
   2. └─prediction:::prediction.default(m)
   3.   ├─stats::predict(...)
   4.   └─e1071:::predict.naiveBayes(...)
   5.     └─base::match.arg(type)
  ── Error ('tests-methods.R:275:9'): Test prediction() for 'lda' ────────────────
  Error in `data.frame(..., check.rows = FALSE, check.names = FALSE, fix.empty.names = FALSE, 
      stringsAsFactors = FALSE)`: arguments imply differing number of rows: 75, 0
  Backtrace:
      ▆
   1. ├─prediction::prediction(m, data = train) at tests-methods.R:275:9
   2. └─prediction:::prediction.default(m, data = train)
   3.   └─prediction:::make_data_frame(data, fitted = tmp[["fit"]], se.fitted = tmp[["se.fit"]])
   4.     └─base::data.frame(...)
  ── Error ('tests-methods.R:306:9'): Test prediction() for 'qda' ────────────────
  Error in `data.frame(..., check.rows = FALSE, check.names = FALSE, fix.empty.names = FALSE, 
      stringsAsFactors = FALSE)`: arguments imply differing number of rows: 75, 0
  Backtrace:
      ▆
   1. ├─prediction::prediction(m, data = train) at tests-methods.R:306:9
   2. └─prediction:::prediction.default(m, data = train)
   3.   └─prediction:::make_data_frame(data, fitted = tmp[["fit"]], se.fitted = tmp[["se.fit"]])
   4.     └─base::data.frame(...)
  
  [ FAIL 4 | WARN 2 | SKIP 0 | PASS 190 ]
  Error: Test failures
  Execution halted