tests/testthat/test_mean_step.R

In InsightRX/clinPK: Clinical Pharmacokinetics Toolkit

test_that("Mean step function works correctly", {
  x <- c(0, 5, 8, 12)
  expect_equal(
    mean_step(x),
    c(2.5, 6.5, 10.0)
  )
  expect_equal(
    mean_step(1),
    numeric(0)
  )
})