# NOT RUN {
# load an example of NDVI time series in Navarre
data(ex.ndvi.navarre)
# the 2 images to be filled and the neighbourhood
genPlotGIS(ex.ndvi.navarre)
# filled images
ndvi.filled <- genSmoothingIMA(ex.ndvi.navarre,
Img2Fill = c(1,2))
# show the filled images
genPlotGIS(ndvi.filled)
# plot comparison of the cloud and the filled images
ndvi.comp <- stack(ex.ndvi.navarre[[1]], ndvi.filled[[1]],
ex.ndvi.navarre[[2]], ndvi.filled[[2]])
genPlotGIS(ndvi.comp, layout=c(2, 2))
# }
Run the code above in your browser using DataLab