if(interactive()){
data(plants_rf, plants_xy)
# Evaluate model with spatial cross-validation
m_evaluated <- rf_evaluate(
model = plants_rf,
xy = plants_xy,
repetitions = 5,
n.cores = 1
)
# Extract evaluation metrics
eval_metrics <- get_evaluation(m_evaluated)
eval_metrics
}
Run the code above in your browser using DataLab