tests/testthat/test_ops_kform.R

## Some tests to increase coverage

test_that("coverage of Ops.kform()", {

    a <- as.kform(cbind(1:5,2:6),1:5)
    expect_error(!a)
    expect_error(a&a)
    expect_false(a != a)
    expect_error(a*a)
    expect_error(a/a)
    expect_error(a + 4)
    expect_error(a - 4)
    expect_error(1/a)
    expect_error(1==a)
})

Try the stokes package in your browser

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

stokes documentation built on Aug. 19, 2023, 1:07 a.m.