# NOT RUN {
inflow<-c(100,500,1500,2500,5000,11000,22000,28000,28500,26000,
22000,17500,14000,10000,7000,4500,2500,1500,1000,500,100)
routingMethod<-c("muskingum","muskingumcunge")
routingParams<-list(k=3,x=0.2,bedWith=50,sideSlope=2,channelSlope=0.0001,
manningRoughness=0.01,riverLength=100)
simulation<-c(interval=3600*1,period=100)
reachRouting(inflow,routingMethod[1],routingParams,simulation)
reachRouting(inflow,routingMethod[2],routingParams,simulation)
# }
Run the code above in your browser using DataLab