# NOT RUN {
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