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