# NOT RUN {
# load fisher data
data("fisher_ud")
# prepare data
r <- metrics_pull(fisher_ud)
# generate palette
pal <- palette_timeline(fisher_ud)
# produce maps, adjusting lambda_i to make areas that were used less
# intensively more conspicuous
map_multiples(r, pal, lambda_i = -5, labels = paste("night", 1:9))
# }
Run the code above in your browser using DataLab