if (sits_run_examples()) {
# create a som map
som_map <- sits_som_map(samples_modis_ndvi)
# plot the som map
plot(som_map)
# evaluate the som map and create clusters
clusters_som <- sits_som_evaluate_cluster(som_map)
# plot the cluster evaluation
plot(clusters_som)
# clean the samples
new_samples <- sits_som_clean_samples(som_map)
}
Run the code above in your browser using DataLab