# NOT RUN {
# Produce a cluster map
samples_mt_2bands <- sits_select(samples_mt_6bands, bands = c("NDVI", "EVI"))
som_map <- sits_som_map(samples_mt_2bands)
# Evaluate the clusters
cluster_overall <- sits_som_evaluate_cluster(som_map)
# Plot confusion between the clusters
plot(cluster_overall)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab