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)

})

Try the monotonicity package in your browser

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

monotonicity documentation built on Dec. 5, 2019, 5:08 p.m.