tests/testthat/test-codonmat2xy.R

data(hiv)

test_that("codonmat2pnps()", {
    expect_true((hiv |> dnastring2codonmat() |> codonmat2xy())$NonSynSum[1]
    == 40)
    expect_true((hiv |> dnastring2codonmat() |>
    codonmat2xy(threads=2))$NonSynSum[1] == 40)
})
kullrich/distSTRING documentation built on Dec. 21, 2021, 8:42 a.m.