tests/testthat/test-masq.R

library(testthat)

.runThisTest <- Sys.getenv("RunAllTests") == "yes"

if(.runThisTest)
{
  context("testmasq")
  
  test_that("masq data extraction from rasters works", {
    expect_equal(sum(admSumMasqOLS, na.rm = T), 590)
    expect_equal(sum(admSumMasqVIIRS, na.rm = T), 1105.12)
  })
}

Try the Rnightlights package in your browser

Any scripts or data that you put into this service are public.

Rnightlights documentation built on Aug. 29, 2019, 5:02 p.m.