tests/testthat/test-omega-nse.R

test_that("omega as variable works", {

  omega<-c(
    5.08E+00,
    -4.42E-01,  2.31E-01)

  lotri(eta.A+eta.B ~ omega)

  expect_equal(lotri(eta.A+eta.B ~ omega),
               lotri(eta.A+eta.B ~ c(
                 5.08E+00,
                 -4.42E-01,  2.31E-01)))

})

Try the lotri package in your browser

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

lotri documentation built on Aug. 8, 2025, 6:12 p.m.