tests/testthat/test-ef_whe.R

context("ef_whe")


test_that("ef_whe works", {
  expect_equal(as.numeric(ef_whe(10, 0.5, 1)),
               5.5)
})

test_that("ef_whe stops", {
  expect_error(ef_whe(phe = 1, ef = 1),
               "No.?\\(?")
})

test_that("ef_whe stops", {
  expect_error(ef_whe(efhe = 1, ef = 1),
               "No.?\\(?")
})

test_that("ef_whe stops", {
  expect_error(ef_whe(efhe = 1, phe = 1),
               "No.?\\(?")
})

Try the vein package in your browser

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

vein documentation built on May 29, 2024, 7:20 a.m.