tests/testthat/test_ci_check.R

context('ci_check')

test_that('ci_check output validity', {
    expect_equal(coreSim:::ci_check(95), 0.95)
    expect_equal(coreSim:::ci_check(1), 1)
    expect_equal(coreSim:::ci_check(0.5), 0.5)
    expect_error(coreSim:::ci_check(500))
})

Try the coreSim package in your browser

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

coreSim documentation built on May 29, 2017, 6:10 p.m.