tests/testthat/test-02_calculate_tem.R

x <- smartStd[smartStd$observer == 0, ]
difference <- x$weight1 - x$weight2
tem <- calculate_tem(d = difference, n = length(difference))

test_that("output is numeric", {
  expect_is(tem, "numeric")
})
nutriverse/anthrocheckr documentation built on April 14, 2024, 8:38 p.m.