# NOT RUN {
# load tura RasterBrick
data(tura)
# calculate mean and standard deviation values per year for ETM+ data only
annualMean <- annualSummary(tura, fun=mean, na.rm=TRUE, sensor="ETM+")
plot(annualMean)
annualSD <- annualSummary(tura, fun=sd, na.rm=TRUE, sensor="ETM+")
plot(annualSD)
# custom function to calculate # of non-NA values per pixel per year (similar to countObs())
ff <- function(x)
length(x[!is.na(x)])
annualObs <- annualSummary(tura, fun=ff, sensor="ETM+")
# }
Run the code above in your browser using DataLab