tests/testthat/test-FWHM.R

test_that("FWHM returns correct values", {
  time_series <- c(
    rep(10, 3),
    rep(11, 3),
    rep(10, 3)
  )

  expect_equal(musclesyneRgies::FWHM(time_series), 3)
  expect_equal(musclesyneRgies::FWHM(time_series, sub_minimum = FALSE), length(time_series))
})

Try the musclesyneRgies package in your browser

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

musclesyneRgies documentation built on July 20, 2022, 1:05 a.m.