data(hiv)
test_that("codonmat2pnps()", {
expect_true((hiv |> dnastring2codonmat() |> codonmat2xy())$NonSynSum[1]
== 40)
expect_true((hiv |> dnastring2codonmat() |>
codonmat2xy(threads=2))$NonSynSum[1] == 40)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.