tests/testthat/test-monoBonferroni.R

context('functions')

test_that('monoBonferroni', {
  
  expect_error(monoBonferroni(difference = FALSE))
  expect_error(monoBonferroni(demo_returns, difference = "FALSE"))

  tmp <- monoBonferroni(demo_returns, difference = FALSE)

  expect_equal(tmp$TestOnePvalBonferroni, 1)
  expect_equal(tmp$TestTwoPvalBonferroni, 1)

})
skoestlmeier/monotonicity documentation built on Dec. 29, 2021, 9:54 a.m.