tests/testthat/test_pvts_meanstd.R

In pvts-approach/PVts: photosynthetic vegetation time series manipulation in R.

context("pvts_simple")

test_that("pvts_meanstd works", {
  data("pvts_datasets")
  x <- pvts_datasets$PVts
  sdmean <- pvts_meanstd(x[1:15,1:10,1:10],hamunyela = FALSE)
  max_values <- round(maxValue(sdmean),3)
  expect_equal(max_values[1], 90.633)
  expect_equal(max_values[2], 42.192)
})