tests/testthat/test-get_moran-examples.R

In BlasBenito/spatialRF: Easy Spatial Modeling with Random Forest

test_that("`get_moran()` works", {
  data(plant_richness_df)
  data(distance_matrix)
  rf.model <- rf(
    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, 1000, 2000),
    verbose = FALSE
  )
  x <- get_moran(rf.model)
  expect_s3_class(x, "data.frame")
  expect_named(x, c("distance.threshold", "moran.i", "moran.i.null", "p.value", "interpretation"))
})