# NOT RUN {
data("amt_fisher")
hr <- amt_fisher %>% nest(data = -id) %>%
mutate(hr = map(data, hr_mcp), n = map_int(data, nrow)) %>%
hr_to_sf(hr, id, n)
hr <- amt_fisher %>% nest(data = -id) %>%
mutate(hr = map(data, hr_kde), n = map_int(data, nrow)) %>%
hr_to_sf(hr, id, n)
# }
# NOT RUN {
ggplot(hr) + geom_sf()
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab