if (sits_run_examples()) {
# create a SOM map
som_map <- sits_som_map(samples_modis_ndvi)
# evaluate the SOM cluster
som_clusters <- sits_som_evaluate_cluster(som_map)
# plot the SOM cluster evaluation
plot(som_clusters)
}
Run the code above in your browser using DataLab