# NOT RUN {
# Read a set of samples
# Get a new subset of samples evaluated by clustering methods
som_map <- sits_som_map(samples_modis_4bands,
grid_xdim = 10, grid_ydim = 10,
distance = "euclidean"
)
new_samples <- sits_som_clean_samples(som_map)
# }
Run the code above in your browser using DataLab