data(Ballinderry)
# River flows right
riverlayout <- RiverLayout(B.river$River,B.river$Length,
B.river$Parent,B.river$Position,
B.river$Distance, direction = -1)
# River flows left
riverlayout.left <- RiverLayout(B.river$River,B.river$Length,
B.river$Parent,B.river$Position,
B.river$Distance)
str(riverlayout)
Run the code above in your browser using DataLab