# NOT RUN {
library(raster)
r.logo <- stack(system.file("external/rlogo.grd", package="raster"),
system.file("external/rlogo.grd", package="raster"),
system.file("external/rlogo.grd", package="raster"))
# Calculate trend slope with p-value and confidence level(s)
logo.trend <- raster.kendall(r.logo, p.value=TRUE, confidence=TRUE)
names(logo.trend) <- c("slope","p.value","LCI","UCI")
plot(logo.trend)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab