# Example usage
coordinates <- matrix(c(1, 1, 2, 2, 3, 3), ncol = 2)
arcs <- matrix(c(1, 1, 2, 2, 1, 2, 2, 3, 3, 2), ncol = 5, byrow = TRUE)
chart_warehouse_route(coordinates, arcs, pch = 19, col_warehouse_lines = "red",
lwd_warehouse_lines = 2)
Run the code above in your browser using DataLab