tests/testthat/test-aastring2dist.R

data(hiv)

test_that("aastring2dist()", {
    h <- hiv |> cds2aa() |> aastring2dist(score=granthamMatrix())
    expect_true(h$sitesUsed[1,1] == 91)
    h <- hiv |> cds2aa() |> aastring2dist(score=granthamMatrix(), threads=2)
    expect_true(h$sitesUsed[1,1] == 91)
})
kullrich/distSTRING documentation built on Dec. 21, 2021, 8:42 a.m.