tests/testthat/test-vignette.R

test_that("Test Data Handling", {
    expect_true(all(samples_modis_ndvi[1:3, ]$label %in% c("Pasture")))
    expect_true(sum(summary(samples_modis_ndvi)$prop) == 1)
    expect_true(all(sits_bands(samples_modis_ndvi) %in%
        c("NDVI")))
})

Try the sits package in your browser

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

sits documentation built on Nov. 2, 2023, 5:59 p.m.