tests/testthat/test-mapfunc.R

In simecek/qtl2: Tools for analyzing high-dimensional QTL experiments

context("map functions")

test_that("map functions are giving the invertible", {

    mapfunc <- c("haldane", "kosambi", "c-f", "morgan")

    d <- seq(0, 200, by=10)
    for(m in mapfunc) {
        if(m == "morgan") d <- d[d <= 50]

        d %>% mf(m) %>% imf(m) %>% expect_equal(d)
    }

    r <- seq(0, 0.5, by=0.5)
    for(m in mapfunc) {
        r %>% imf(m) %>% mf(m) %>% expect_equal(r)
    }


})