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)
Run the code above in your browser using DataLab