inst/tests/test_helpers.R

context("Common helper functions")

test_that("outcomeLabel returns the formula outcome as a string", {
  formula <- as.formula("activity~.")
  expect_equal(outcomeLabel(formula),"activity")
  formula <- as.formula("activity ~ .")
  expect_equal(outcomeLabel(formula),"activity")
})

Try the bagRboostR package in your browser

Any scripts or data that you put into this service are public.

bagRboostR documentation built on May 2, 2019, 11:12 a.m.