tests/testthat/test-compositional_mean.R

In OxWearables/epicoda: Supports epidemiological analyses using compositional exposure variables

test_that("scaling works for compositional mean", {
  expect_equal(comp_mean(data = simdata, comp_labels =c("vigorous", "moderate", "light", "sedentary", "sleep"),
                         rounded_zeroes = TRUE, det_limit = 0.00119, units = "hr/day"), 24*comp_mean(data = simdata, comp_labels =c("vigorous", "moderate", "light", "sedentary", "sleep"),
                                                                                rounded_zeroes = TRUE, det_limit = 0.00119))
})

test_that("user-specified scaling works for compositional mean", {
  expect_equal(comp_mean(data = simdata, comp_labels =c("vigorous", "moderate", "light", "sedentary", "sleep"), rounded_zeroes = TRUE,
                         det_limit = 0.00119,  units = "specified", specified_units = c("test", 29)), 29*comp_mean(data = simdata, comp_labels =c("vigorous", "moderate", "light", "sedentary", "sleep"),
                                                                                rounded_zeroes = TRUE, det_limit = 0.00119))
  })

test_that("error thrown if units specified wrongly", {
  expect_error(comp_mean(data = simdata, comp_labels =c("vigorous", "moderate", "light", "sedentary", "sleep"),
                         rounded_zeroes = TRUE, det_limit = 0.00119, units = "min/month"))
})