# NOT RUN {
# create a binary raster stack
x <- stack(raster(matrix(c(1, 0, 0, 1, NA, 0), nrow = 3)),
raster(matrix(c(0, 1, 0, 0, NA, 0), nrow = 3)),
raster(matrix(c(0, 0, 1, 0, NA, 1), nrow = 3)))
# convert to binary stack
y <- category_layer(x)
# plot categorical raster and binary stack representation
# }
# NOT RUN {
plot(stack(x, y), main = c("x[[1]]", "x[[2]]", "x[[3]]", "y"), nr = 1)
# }
Run the code above in your browser using DataLab