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