tests/testthat/test-are_tmhs.R

test_that("use", {
  if (!is_tmhmm_installed()) return()
  sequences <- c("VVIILTIAGNILVIMAVSLE", "VVIILTIRGNILVIMAVSLE")
  expect_equal(c(TRUE, FALSE), are_tmhs(sequences))
})
richelbilderbeek/tmhmm documentation built on Sept. 3, 2022, 5:14 p.m.