tests/testthat/test-plot_response_curves-examples.R

In BlasBenito/spatialRF: Easy Spatial Modeling with Random Forest

test_that("`plot_response_surfaces()` works", {
  data(plant_richness_df)
  m <- rf(
    data = plant_richness_df, dependent.variable.name = "richness_species_vascular",
    predictor.variable.names = colnames(plant_richness_df)[5:21],
    verbose = FALSE
  )
  p <- plot_response_curves(m)
  expect_type(p, "list")
  expect_s3_class(p[[1]], "ggplot")
})