# NOT RUN {
{
# Retrieve a time series with values of NDVI
point_ndvi <- sits_select(point_mt_6bands, bands = "NDVI")
# Filter the point using the whittaker smoother
point_ws.tb <- sits_whittaker(point_ndvi, lambda = 3.0)
# Plot the two points to see the smoothing effect
plot(sits_merge(point_ndvi, point_ws.tb))
}
# }
Run the code above in your browser using DataLab