tests/testthat/test_convert_motifs.R

context("convert_motifs()")

test_that("motif conversion works", {

  m <- matrix(rep(0.25, 16), nrow = 4)
  rownames(m) <- c("A", "C", "G", "T")
  mm <- convert_motifs(m)

  expect_equal(mm@alphabet, "DNA")

})
bjmt/universalmotif documentation built on March 18, 2024, 8:32 a.m.