tests/testthat/test-dissimilarity_score.R

In andrewrech/antigen.garnish: Tumor neoantigen prediction

testthat::test_that("dissimilarity_score", {
  v <- c("SIINFEKL")

  skip_pred_tools()

  st <- v %>% dissimilarity_score(db = "human", aval = 52)

  testthat::expect_equal(
    st[, dissimilarity] %>% format(digits = 5),
    c("1")
  )
})