tests/testthat/test-ranking.R

context("ranking")

test_that("Testing the file ranking.R", {

  x <- ranking(r, b)
  expect_equal(raster::cellStats(x, max), 1)

})

Try the caliver package in your browser

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

caliver documentation built on Feb. 19, 2021, 5:07 p.m.