test_that("peptide_phychem_index works", {
aa <- peptide_phychem_index('ACGTCATCAAGT', acc = "EISD840101")
expect_equal(sum(aa), 0.9)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.