tests/testthat/test_green.r

In BlueGrisGris/vpRm: R Package for VPRM, a model of NEE

test_that("does green() calculate the growing season correctly",{
	evi <- terra::rast(evi_dir)
	greenupdown <- green(evi)
	expect_equal( c(terra::nrow(greenupdown), terra::ncol(greenupdown), terra::nlyr(greenupdown)) 
		     , c(terra::nrow(greenupdown), terra::ncol(greenupdown), terra::nlyr(greenupdown)) 
	)#end expect_equal
})#end test_that("does green() calculate the growing season correctly",{