if(interactive()){
data(plants_rf, plants_xy)
# Perform spatial cross-validation
plants_rf <- rf_evaluate(
model = plants_rf,
xy = plants_xy,
repetitions = 5,
n.cores = 1
)
# Visualize evaluation results
plot_evaluation(plants_rf)
# Without notches for simpler boxplots
plot_evaluation(plants_rf, notch = FALSE)
# Custom colors
plot_evaluation(
plants_rf,
fill.color = c("#E64B35FF", "#4DBBD5FF", "#00A087FF")
)
# Print summary statistics
print_evaluation(plants_rf)
# Extract evaluation data for custom analysis
evaluation_data <- get_evaluation(plants_rf)
head(evaluation_data)
}
Run the code above in your browser using DataLab