testthat::test_that("make_sw_alignment", {
v1 <- c("SIINFEKL", "SYFPEITHI")
v2 <- c("SIIPFEKL", "SYFFPEITHI")
ot <- antigen.garnish:::make_sw_alignment(v1, v2)
testthat::expect_equal(ot, c(30, 42))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.