tests/testthat/test-rcpp_pairwiseDeletionDNA.R

data(woodmouse, package="ape")

test_that("rcpp_pairwiseDeletionDNA()", {
    w <- woodmouse |> dnabin2dnastring() |> as.character()
    expect_true(rcpp_pairwiseDeletionDNA(dnavector=w, ncores=1)$sitesUsed[2,2]
    == 962)
})
kullrich/distSTRING documentation built on Dec. 21, 2021, 8:42 a.m.