tests/testthat/test_mean_step.R

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)
  )
})

Try the clinPK package in your browser

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

clinPK documentation built on May 29, 2024, 3:50 a.m.