tests/testthat/test-07-probit_muac.R

x <- probit_gam(x = indicators.ALL, params = "MUAC", threshold = 210)
y <- probit_gam(x = indicators.ALL, params = "MUAC", threshold = 210)

test_that("output is numeric", {
  expect_is(x, "numeric")
  expect_is(y, "numeric")
})
validmeasures/ramOP documentation built on April 18, 2024, 1:04 a.m.