data(Ballinderry)
riverlayout <- RiverLayout(B.river$River,B.river$Length,
B.river$Parent,B.river$Position,
B.river$Distance, direction = -1)
RiverDraw(riverlayout)
RiverTM(c(0,2,4,6,8,10), B.bio[4:5], riverlayout,
pos=-1, side = "L", range = c(0,8))
RiverTM(c(0,3,8), B.bio[4:5], riverlayout,
pos=-1, side = "R", range = c(0,8))
Run the code above in your browser using DataLab