if (mlr3misc::require_namespaces(c("sf", "blockCV"), quietly = TRUE)) {
library(mlr3)
library(mlr3spatiotempcv)
task = tsk("ecuador")
resampling = rsmp("spcv_block", range = 1000L)
resampling$instantiate(task)
## list of ggplot2 resamplings
plot_list = autoplot(resampling, task,
crs = 4326,
fold_id = c(1, 2), plot_as_grid = FALSE)
## Visualize all partitions
autoplot(resampling, task) +
ggplot2::scale_x_continuous(breaks = seq(-79.085, -79.055, 0.01))
## Visualize the train/test split of a single fold
autoplot(resampling, task, fold_id = 1) +
ggplot2::scale_x_continuous(breaks = seq(-79.085, -79.055, 0.01))
## Visualize train/test splits of multiple folds
autoplot(resampling, task,
fold_id = c(1, 2),
show_blocks = TRUE) *
ggplot2::scale_x_continuous(breaks = seq(-79.085, -79.055, 0.01))
}
Run the code above in your browser using DataLab