tests/testthat/test-bonferroni.R

context("test-bonferroni.R")

test_that("bonferroni works", {
  result <- bonferroni(c(0.1,0.2,0.3,0.4))
  expect_equal(result$adjPValues, c(0.4, 0.8, 1.0, 1.0))
})

Try the mutoss package in your browser

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

mutoss documentation built on March 31, 2023, 8:46 p.m.