# 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)
# Plot the clusters
plot(som_map, type = "codes")
# Plot kohonen map showing where the samples were allocated
plot(som_map, type = "mapping")
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab