# NOT RUN {
l <- od2line(flow = flow, zones = cents)
plot(cents)
plot(l, lwd = l$All / mean(l$All), add = TRUE)
# When destinations are different
head(flow_dests[1:5]) # check data
head(destinations[1:5])
flowlines_dests <- od2line(flow_dests, cents, destinations = destinations)
plot(flowlines_dests)
l <- od2line(flow, zones_sf)
plot(l["All"], lwd = l$All/mean(l$All))
# }
Run the code above in your browser using DataLab