tests/testthat/test-rcpp_pairwiseDeletionAA.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(hiv)

test_that("rcpp_pairwiseDeletionAA()", {
    h <- hiv |> cds2aa() |> as.character()
    expect_true(rcpp_pairwiseDeletionAA(aavector=h, ncores=1)$sitesUsed[1,2]
    == 91)
    expect_true(rcpp_pairwiseDeletionAA(aavector=h, ncores=1,
    symmetric=0)$sitesUsed[1,2] == 91)
})