tests/testthat/test-uptriidx.R

test_that("uptriidx()", {
    expect_true(uptriidx(3)[3] == 6)
    expect_true(uptriidx(2, diag=TRUE)[3] == 4)
})
kullrich/distSTRING documentation built on Dec. 21, 2021, 8:42 a.m.