tests/testthat/test_SAVF_linear_plot.R

test_that("SAVF_linear_plot provides proper messages and warnings",{
  expect_error(SAVF_linear_plot(70, 68, 85, 82, TRUE))
  expect_error(SAVF_linear_plot(74, 90, 79, 82, TRUE))
  expect_error(SAVF_linear_plot(74, 90, 79, 95, FALSE))
  expect_error(SAVF_linear_plot(74, 90, 91, 88, FALSE))
})

Try the DecisionAnalysis package in your browser

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

DecisionAnalysis documentation built on July 1, 2020, 6:19 p.m.