# NOT RUN {
# Load the "dtwclust" package
# library(dtwclust)
# calculate the dendrogram and the best clusters
clusters <- sits_cluster_dendro(cerrado_2classes, bands = c("NDVI", "EVI"))
# show clusters samples frequency
sits_cluster_frequency(clusters)
# remove cluster 3 from the samples
clusters_new <- dplyr::filter(clusters, cluster != 3)
# show clusters samples frequency
sits_cluster_frequency(clusters_new)
# clean all remaining clusters
cleaned <- sits_cluster_clean(clusters_new)
# show clusters samples frequency
sits_cluster_frequency(cleaned)
# }
Run the code above in your browser using DataLab