data("flowlines")
plot(flowlines)
singlelines <- onewaygeo(flowlines, attrib = 3:14)
plot(singlelines, lwd = 3, col = "red")
lines(singlelines) # check we've got the right lines
sum(singlelines$All)
nrow(singlelines)
Run the code above in your browser using DataLab