# NOT RUN {
# load elephant data
data("elephant_ud")
# prepare metrics
r <- metrics_distill(elephant_ud)
# generate palette
pal <- palette_set(elephant_ud)
# produce map, adjusting lambda_i to make areas that were used less
# intensively more conspicuous
map_single(r, pal, lambda_i = -5)
# return RasterStack containing RGBa values
m <- map_single(r, pal, lambda_i = -5, return_type = "stack")
# visualize RGBa values
library(raster)
plotRGB(m, 1, 2, 3, alpha = as.vector(m[[4]]))
# }
Run the code above in your browser using DataLab