tests/testthat/test_cluster_regions.R

context("Testing")

test_that("Succes", {

  library(NINA)

  env_clus = cluster_regions(env_data, n.clus = 5)

  expect_equal(class(env_clus), "data.frame")

  expect_equal(nrow(env_clus), nrow(na.exclude(raster::getValues(env_data))))

  expect_equal(length(unique(env_clus$cluster)), 5)
})
agarciaEE/NINA documentation built on Jan. 9, 2025, 10:09 a.m.