tests/testthat/test-brightness.R

test_that("brightness works", {
  v <- sample.int(100)
  expect_equal(brightness_vec(v), var(v) / mean(v))
  m <- matrix(v, nrow = 5)
  expect_equal(brightness_rows(m), apply(m, 1, brightness_vec))
})

Try the detrendr package in your browser

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

detrendr documentation built on March 7, 2023, 7:52 p.m.