tests/testthat/test-rcpp_pairwiseDeletionDNA.R

In kullrich/MSA2dist: MSA2dist calculates pairwise distances between all sequences of a DNAStringSet or a AAStringSet using a custom score matrix and conducts codon based analysis

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)
    expect_true(rcpp_pairwiseDeletionDNA(dnavector=w, ncores=1,
    symmetric=0)$sitesUsed[2,2] == 962)
})