tests/testthat/test-aminoacid_dist.R

test_that("aminoacid_dist works", {
    x <- "ALRWTC"
    y <- "AMWMT-"
    res <- aminoacid_dist(aa1 = x, aa2 = y)
    expect_equal(as.numeric(res[6]), 2)
})
genomaths/GenomAutomorphism documentation built on Jan. 2, 2025, 12:25 a.m.