tests/testthat/test-thinning_til_n-examples.R

In BlasBenito/spatialRF: Easy Spatial Modeling with Random Forest

test_that("`thinning_til_n()` works", {
  data(plant_richness_df)
  plant_richness.thin <- thinning_til_n(
    x = plant_richness_df,
    n = 100
  )
  expect_s3_class(plant_richness.thin, "data.frame")
  expect_equal(colnames(plant_richness.thin), colnames(plant_richness.thin))
})