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)
}
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.