inst/doc/bio/__tests__/test-table.r

test_that('nucleotide frequencies are correct', {
    s = seq('GATTACA')
    expected = as.table(c(A = 3L, C = 1L, G = 1L, T = 2L))
    expect_equal(table(s)[[1L]], expected)
})

Try the box package in your browser

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

box documentation built on May 2, 2023, 9:14 a.m.