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 May 10, 2024, 12:11 a.m.