tests/testthat/test-rf_tuning-examples.R

In BlasBenito/spatialRF: Easy Spatial Modeling with Random Forest

test_that("`rf_tuning()` works", {
  data(plant_richness_df)

  out <- rf(
    data = plant_richness_df,
    dependent.variable.name = "richness_species_vascular",
    predictor.variable.names = colnames(plant_richness_df)[5:21],
    verbose = FALSE
  )

  out <- rf_tuning(
    model = out,
    xy = plant_richness_df[, c("x", "y")],
    num.trees = c(500, 1000),
    mtry = seq(2, 14, by = 2),
    min.node.size = c(5, 10, 20),
    n.cores = 7,
    verbose = FALSE)
  expect_s3_class(out$tuning$tuning.df, "data.frame")
  expect_type(out$tuning, "list")
})