File: test-bonferroni.R

package info (click to toggle)
r-cran-mutoss 0.1-13-1
  • links: PTS, VCS
  • area: main
  • in suites: sid, trixie
  • size: 1,560 kB
  • sloc: sh: 13; makefile: 2
file content (6 lines) | stat: -rw-r--r-- 165 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
 
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))
})