if (sits_run_examples()) {
# print the labels summary for a sample set
sits_labels_summary(samples_modis_4bands)
# reduce the sample imbalance
new_samples <- sits_reduce_imbalance(samples_modis_4bands,
n_samples_over = 200,
n_samples_under = 200,
multicores = 1
)
# print the labels summary for the rebalanced set
sits_labels_summary(new_samples)
}
Run the code above in your browser using DataLab