tests/testthat/test-plot_moran-examples.R

In BlasBenito/spatialRF: Easy Spatial Modeling with Random Forest

test_that("`plot_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
   )

   p <- plot_moran(rf.model, verbose = FALSE)
   expect_equal(inherits(p, "ggplot"), TRUE)
})