library(data.table)
library(irg)
ndvi <- fread(system.file("extdata", "sampled-ndvi-MODIS-MOD13Q1.csv", package = "irg"))
# scale_ndvi --------------------------------------------------------------
# Columns mising are detected
expect_error(scale_ndvi(ndvi),
'must include', fixed = FALSE)
filter_ndvi(ndvi)
expect_true("winter" %in% colnames(ndvi))
expect_true("rolled" %in% colnames(ndvi))
expect_true("top" %in% colnames(ndvi))
# Was scaled added
scale_ndvi(ndvi)
expect_true("scaled" %in% colnames(ndvi))
# Did it rescale to 0-1?
expect_true(max(ndvi$scaled, na.rm = TRUE) <= 1)
expect_true(min(ndvi$scaled, na.rm = TRUE) >= 0)
# scale_doy ---------------------------------------------------------------
# Columns mising are detected
expect_error(scale_doy(ndvi, doy = 'potato'),
'must include', fixed = FALSE)
# Was t added
expect_true("t" %in% colnames(scale_doy(ndvi)))
# Did it rescale to 0-1?
expect_true(max(ndvi$t, na.rm = TRUE) <= 1)
expect_true(min(ndvi$t, na.rm = TRUE) >= 0)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.