data(Ballinderry)
riverlayout <- RiverLayout(B.river$River,B.river$Length,
B.river$Parent,B.river$Position,
B.river$Distance, direction = -1)
RiverDraw(riverlayout)
RiverSite(B.soi$SOI, B.soi$River, B.soi$Distance, B.soi$Group, riverlayout,
pt.bg = c("red","green","yellow", "blue"), lbl.shw = FALSE)
RiverSite(B.soi$SOI, B.soi$River, B.soi$Distance, 1, riverlayout, pt.bg = "red")
Run the code above in your browser using DataLab