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 Nov. 14, 2024, 5:39 p.m.