# NOT RUN {
#see pp 41-43 of reference document
SI<-FALSE # use U.S. customary units
left<-c(0.94,0.80,0.59,0.61,0.50,0.42,0.33,0.07)
right<-c(0.73,0.81,0.92,0.64,0.50,0.27,0.20,0.13)
ls<-224;gs<-20
#first call travunif to return overlapped data given gage spacing and lane spacing
out<-travunif(ls,gs,left,right)
x<-out$o.depths
rate<-197 # 197 gpm sprinkler discharge rate (measured)
PELQT(x,SI=FALSE,rate,ls,1.5)#call PELQ for traveling systems
# }
Run the code above in your browser using DataLab