tests/testthat/test-invls.R

context("invls")

library(raster)

data(dtm100m,dtm1m)
ls1 <- invls(dtm100m, raster::extent(dtm1m), 180)

test_that("invls output", {
  expect_is(ls1, "RasterLayer")
  expect_equal(raster::res(dtm100m), raster::res(ls1))
  expect_equal(raster::extent(dtm1m), raster::extent(ls1))
})
ilyamaclean/microclima documentation built on Sept. 5, 2024, 8:37 p.m.