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))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.