# NOT RUN {
# Select the NDVI band of a point in Mato Grosso
point_ndvi <- sits_select(point_mt_6bands, bands = "NDVI")
# Apply the envelope filter
point_env <- sits_envelope(point_ndvi)
# Merge the filtered with the raw data
point2 <- sits_merge(point_ndvi, point_env)
# Plot the result
plot(point2)
# }
Run the code above in your browser using DataLab