tests/testthat/test_check_confidence.R

context("Check confidence")

test_that("Checking check_confidence",{
  
  #Check that for positive values of meancft and meanrr gives TRUE
  expect_error({
    check.confidence(-1)
  })
  
  expect_true({
    confidence <- runif(1, 0, 100)
    check.confidence(confidence)
    })
  
})
INSP-RH/pif documentation built on May 7, 2019, 6:01 a.m.