tests/testthat/testlinear.mod.R

context("linear.mod")
test_that("linear.mod throws an error when the input data does not contain the response vector", {

  data(red_train)
  expect_error(linear.mod(dat = red_train[ , 1:2]),
               "The input data should include the response.")

})
group-wine/sommelieR documentation built on May 21, 2019, 1:43 p.m.