tests/testthat/test_regr_frbs.R

context("regr_frbs")

test_that("regr_frbs", {
  requirePackagesOrSkip("frbs", default.method = "load")

  parset.list = list(
    list(),
    list(num.labels = 2L, type.mf = "TRAPEZOID")
  )

  old.predicts.list = list()

  for (i in seq_along(parset.list)) {
    pars = parset.list[[i]]
    method.arg = names(pars) == "method"
    if (any(method.arg)) {
      pars = list(method = pars$method, control = pars[!method.arg])
    } else {
      pars = list(control = pars)
    }
    pars$data.train = regr.num.train
    m = do.call(frbs::frbs.learn, pars)
    ind = setdiff(names(regr.num.test), regr.num.target)
    p = predict(m, newdata = regr.num.test[, ind])[, 1]
    old.predicts.list[[i]] = p
  }

  testSimpleParsets("regr.frbs", regr.num.df, regr.num.target, regr.num.train.inds,
    old.predicts.list, parset.list)
})
guillermozbta/s2 documentation built on May 17, 2019, 4:01 p.m.