Nothing
a <- 9
expect_that(a, is_less_than(10))
# test example Brisaster
library(SDMPlay)
data('Brisaster.antarcticus')
x <- brisaster.antarcticus
expect_that(nrow(x), equals(43))
# test delim.area function
data('predictors2005_2012')
envi <- predictors2005_2012
r <- SDMPlay:::delim.area(predictors = envi,
longmin = 70,longmax = 75, latmin = -50,latmax = -46,
interval = c(0,-1000))
expect_that(raster::extent(r)[1], equals(70))
expect_that(raster::extent(r)[2], equals(75))
expect_that(raster::extent(r)[3], equals(-50))
expect_that(raster::extent(r)[4], equals(-46))
# test Southern Ocean environmental layers
data("depth_SO")
expect_that(raster::ncell(depth_SO), equals(1260000))
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.