data(Ballinderry)
riverlayout <- RiverLayout(B.river$River,B.river$Length,
B.river$Parent,B.river$Position,
B.river$Distance, direction = -1)
RiverDraw(riverlayout)
RiverPoint(B.elevation$Site, B.elevation$River, B.elevation$Distance,
B.elevation$Elevation, riverlayout)
RiverPoint(B.elevation$Site, B.elevation$River, B.elevation$Distance,
B.elevation$Elevation, riverlayout, lbl.shw=TRUE)
RiverPoint(B.elevation$Site, B.elevation$River,
B.elevation$Distance, NA, riverlayout, lbl.shw=TRUE)
Run the code above in your browser using DataLab