if (sits_run_examples()) {
# create a som map
som_map <- sits_som_map(samples_modis_ndvi)
# evaluate the som map and create clusters
som_eval <- sits_som_evaluate_cluster(som_map)
# clean the samples
new_samples <- sits_som_remove_samples(som_map, som_eval, "Pasture", "Cerrado")
}
Run the code above in your browser using DataLab