# NOT RUN {
## Plum Island Ecosystems
## Load observed land use maps
obs <- ObsLulcRasterStack(x=pie,
pattern="lu",
categories=c(1,2,3),
labels=c("forest","built","other"),
t=c(0,6,14))
crossTabulate(x=obs, times=c(0,14))
## RasterLayer input
crossTabulate(x=obs[[1]],
y=obs[[3]],
categories=c(1,2,3),
labels=c("forest","built","other"))
# }
Run the code above in your browser using DataLab