tests/testthat/test-signifSymbols.R

context("signifSymbols")

test_that("basic checks", {
  expect_error(signifSymbols(.1,.2))
  expect_error(signifSymbols(.1, thresholds=c(.5)))
  expect_equal(signifSymbols(.011), "*")
  expect_equal(signifSymbols(.11), "n.s.")
})
inSileco/inSilecoMisc documentation built on Sept. 14, 2022, 5:44 a.m.