# NOT RUN {
# Create a routing table for the Brompton test case and show histogram
data(brompton)
tab <- build_routing_table(brompton$dem,
chans=brompton$reaches,
breaks=5)
barplot(tab[,2]*100, xlab="Mean flow distance to outlet (m)",
ylab="Network Width %", names.arg=tab[,1])
# }
Run the code above in your browser using DataLab