data("flowlines")
id1 <- names(flowlines)[1]
id2 <- names(flowlines)[2]
plot(flowlines)
singlelines <- onewayid(flowlines, attrib = 3:14, id1, id2)
lines(singlelines) # check we've got the right lines
sum(singlelines$All)
nrow(singlelines)
sl2 <- onewaygeo(flowlines, attrib = 3:14)
# Demonstrate the results from onewayid and onewaygeo are identical
Run the code above in your browser using DataLab