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