tests/testthat/test-uptriidx.R

test_that("uptriidx()", {
    expect_true(uptriidx(3)[3] == 6)
    expect_true(uptriidx(2, diag=TRUE)[3] == 4)
})
kullrich/MSA2dist documentation built on April 26, 2024, 4:43 p.m.