tests/testthat/test-rf_repeat-examples.R

In BlasBenito/spatialRF: Easy Spatial Modeling with Random Forest

test_that("`rf_repeat()` works", {
  data("plant_richness_df")
  data("distance_matrix")
  out <- rf_repeat(
    data = plant_richness_df,
    dependent.variable.name = "richness_species_vascular",
    predictor.variable.names = colnames(plant_richness_df)[5:21],
    distance.matrix = distance_matrix,
    distance.thresholds = c(0,100, 1000),
    repetitions = 10,
    n.cores = 7,
    verbose = FALSE
  )
  expect_s3_class(out, "rf_repeat")
  expect_s3_class(out$importance$per.variable, "data.frame")
  expect_s3_class(out$residuals$autocorrelation$per.distance, "data.frame")
  expect_named(out$residuals$autocorrelation$per.distance, c("distance.threshold", "moran.i", "p.value", "interpretation"))
})