This function computes the envelope of a time series using the streaming algorithm proposed by Lemire (2009). This functions calls `dtwclust::compute_envelope` function.
sits_envelope(data = NULL, operations = "UULL", bands_suffix = "env")
A tibble with time series data and metadata.
A character sequence for the sequence operations. ("U" for upper filter, "L" for lower filter).
Suffix of the resulting data.
A tibble with filtered time series values.
# 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