## Wavelet filter
sy = waveletSmoothing(x=template, frequency=16, wf = "la8", J=1,
boundary = "periodic")
plot(template$evi, xlab="Time", ylab="EVI")
lines(sy$evi, col="red")
## Plot raw EVI and filtered EVI
#require(ggplot2)
#evi = merge(Raw=zoo(template$evi), Wavelet=zoo(sy$evi))
#gp = autoplot(evi, facets = NULL) + xlab("Time")
#gp
## Plot all filter bands
#require(ggplot2)
#gp = autoplot(sy, facets = NULL) + xlab("Time")
#gp
Run the code above in your browser using DataLab