tests/testthat/test-immune_epitope_database_calculation.R

In andrewrech/antigen.garnish: Tumor neoantigen prediction

testthat::test_that("immune epitope database calculation", {
  v <- c("SIINFEKL", "ILAKFLHWL", "ILRGSVAHK")

  skip_pred_tools()

  ie <- v %>% foreignness_score(db = "mouse")

  testthat::expect_equal(
    ie[, foreignness_score] %>% format(digits = 5),
    c("1.0000e+00", "9.0884e-07", "1.0000e+00")
  )
})