grid <- create_grid(
c(0, 200),
c(0, 100),
dim = c(4,4)
)
df <- tibble::tibble(X = runif(100, 0, 200), Y = runif(100, 0, 100),
behaviour = "sitting")
plot_grid(grid, df, zone_fill = TRUE)
grid <- update_zone(grid, 25, 24, 2)
plot_grid(grid, df, zone_fill = TRUE)