# load data
data(avhrr)
# create NDVI object
ndvi <- new("NDVI", values=avhrr.ndvi/10000, year=as.integer(1995))
# correct values (bise)
ndvi.ravg <- runningAvg(ndvi, window=7)
#plot
plot(ndvi.ravg)
Run the code above in your browser using DataLab