tests/testthat/test_calcMaxInformation.R

# test_calcMaxInformation.R

context("calcMaxInformation")

test_that("calculate the max information correctly", {
  expect_equal(calcMaxInformation(isAminoAcid = FALSE), log2(4))
  expect_equal(calcMaxInformation(isAminoAcid = TRUE), log2(20))
})
hyginn/shi documentation built on May 6, 2019, 9:53 a.m.