tests/testthat/test-automorphism_prob.R

test_that("automorphism_prob works", {
        data("autby_coef", package = "GenomAutomorphism")
        post_prob <- automorphism_prob(autby_coef[1:10])
        expect_true(round(sum(post_prob$Posterior_Probability), 3) == 1)
    }
)
genomaths/GenomAutomorphism documentation built on Jan. 2, 2025, 12:25 a.m.