revdep/checks.noindex/mlr/old/mlr.Rcheck/tests/testthat/test_regr_rsm.R

In gbm-developers/gbm: Generalized Boosted Regression Models

context("regr_rsm")

test_that("regr_rsm", {
  requirePackagesOrSkip("rsm", default.method = "load")

  data = regr.df[, c("b", "lstat", "medv")]
  pars = list(medv ~ FO(b, lstat), data = data[regr.train.inds, ])
  m = do.call(rsm::rsm, pars)
  p = predict(m, newdata = regr.test)

  testSimple("regr.rsm", data, regr.target, regr.train.inds, p)
})