tests/testthat/test_SAVF_exp_plot.R

test_that("SAVF_exp_plot provides proper messages and warnings",{
  expect_error(SAVF_exp_plot(70, 68, 85, 82, TRUE))
  expect_error(SAVF_exp_plot(74, 90, 79, 82, TRUE))
  expect_error(SAVF_exp_plot(74, 90, 79, 95, FALSE))
  expect_error(SAVF_exp_plot(74, 90, 91, 88, FALSE))
  expect_error(SAVF_exp_plot(74, 68, 75, 82, FALSE))
})
AFIT-R/MODA documentation built on May 28, 2019, 11:01 a.m.