tests/testthat/test_mvrRf.R

In ep1804/el: my routinE Library

context("Multivariate Regression with Random Forest Model")

test_that("MVR RF functions", {
  set.seed(1)
  
  tr <- bearing[1:(nrow(bearing)/2), -1]
  ob <- bearing[, -1]
  
  model <- el.mvrRf(tr, alpha = 0.01)
  score <- el.mvrRfScore(ob, model$fit)
  
  expect_equal(round(sum(score), 5), 2.49309)
})