tests/testthat/test-ref_sequence.R

test_that("ref_sequence()", {

  alignment_ATM <- read_alignment('ATM')
  ref_seq <- ref_sequence(alignment_ATM)

  expect_true(is.atomic(ref_seq))
  expect_true(is.character(ref_seq))
})

Try the agvgd package in your browser

Any scripts or data that you put into this service are public.

agvgd documentation built on Sept. 11, 2022, 1:07 a.m.