tests/testthat/test-aa_phychem_index.R

test_that("aa_phychem_index works", {
    data("aaindex1", package = "GenomAutomorphism" )
    m <- mean(aa_phychem_index(acc = "ARGP820101", aaindex = "aaindex1"))
    expect_equal(round(m,4), 0.9975)
})
genomaths/GenomAutomorphism documentation built on May 10, 2024, 12:11 a.m.