# NOT RUN {
library(cartograflow)
library(sf)
data(flowdata)
map <- st_read(system.file("shape/MGP_TER.shp", package = "cartograflow"))
tabflow <- flowjointure(
geom = "area", bkg = map, DF.flow = flows, origin = "i", destination = "j",
id = "EPT_NUM", x = "X", y = "Y"
)
# }
Run the code above in your browser using DataLab