tests/testthat/test-fCover.R

In RStoolbox: Tools for Remote Sensing Data Analysis

context("fCover")

set.seed(42)
suppressPackageStartupMessages(library(raster))

data(lsat)
lc	  <- unsuperClass(lsat, nSamples = 50, nClass=3)$map
modis <- aggregate(lsat, 9)

for(cl in 1:2) {
    if (!identical(Sys.getenv("NOT_CRAN"), "true") && cl == 2) next
    
	test_that(sprintf("works for %s classes(s)",cl), {
				expect_is(fc <- fCover(
								classImage = lc ,
								predImage = modis,
								classes=1:cl,
								model="lm",
								nSample = 30,
								number = 5,
								tuneLength=1
						), c("RStoolbox", "fCover"))
				expect_equal(nlayers(fc$map), cl)
			})

}

test_that("errors and warnings are thrown",{
expect_error(fCover(
		classImage = lc ,
		predImage = modis,
		classes = 4,
		model="rf",
		nSample = 50,
		number = 5,
		tuneLength=1
),"One or more classes are not represented in the sampled pixels")
})