tests/testthat/test-Myerson.R

context("test-Myerson.R")

test_that("multiplication works", {
  expect_equal(round(pMyerson(40, 10, 20, 40, tl=0.2)-0.9), 0)
  expect_equal(round(pMyerson(40, 10, 20, 40)-0.75), 0)
})
dmi3kno/tidyear documentation built on June 12, 2019, 12:28 p.m.