test-scale.R
In irg: Instantaneous Rate of Green Up

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)