tests/testthat/test-predict_ic50.R

In tzina97/netMHCpanW: Interface to 'NetMHCpan'

test_that("use", {

  if (!is_netmhcpan_installed()) return()

  peptides <- c("AIAACAMLLV", "ALVCYIVMPV")
  df <- predict_ic50(
    peptides = peptides,
    mhc_haplotype = "HLA-A02:329"
  )
  expect_true("peptide" %in% names(df))
  expect_true("ic50" %in% names(df))
  expect_equal("character", class(df$peptide))
  expect_equal("numeric", class(df$ic50))
})