tests/testthat/test-rcpp_KaKs.R

data(hiv)

test_that("rcpp_KaKs()", {
    h <- rcpp_KaKs(cdsstr=as.character(hiv[1:3]))
    expect_true(h[[3]][1] == "U68496_U68497")
})
kullrich/MSA2dist documentation built on Nov. 14, 2024, 5:39 p.m.