tests/testthat/test-get-metric.r

test_that("get_metric works", {  
  expect_true(get_metric(NULL))
  expect_false(all(sapply(c("ord", "ord"),get_metric)))
  expect_false(all(sapply(c("num", "raw"),get_metric)))
})

Try the plspm package in your browser

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

plspm documentation built on Nov. 5, 2025, 6:31 p.m.