tests/testthat/test-histMatch.R

In RStoolbox: Tools for Remote Sensing Data Analysis

context("histMatch")

library(raster)
data(lsat)
singLay <- histMatch(lsat[[1]], lsat[[2]])
multLay <- histMatch(lsat, sqrt(lsat))

test_that("histMatch RasterLayers and Stack/Bricks", {
 	expect_is(singLay, "RasterLayer")
	expect_is(multLay, "RasterBrick")
	expect_equal(names(multLay), names(lsat))
	expect_equal(names(singLay), names(lsat)[1])
})