tests/testthat/test_conversions.R

library("BioCor")
context("Testing conversions functions")

test_that("Conversions", {
    expect_error(D2J(1.1))
    expect_error(D2J(-1.1))
    expect_error(J2D(1.1))
    expect_error(J2D(-1.1))

    expect_equal(J2D(D2J(0.5)), 0.5)

    expect_equal(D2J(0.5), 1 / 3)
    expect_equal(J2D(0.5), 2 / 3)
})

Try the BioCor package in your browser

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

BioCor documentation built on Nov. 8, 2020, 4:56 p.m.