# NOT RUN {
#see pp 41-44 of reference document
x<-c(.23,.31,.24,.24,.28,.31,.27,.22,.26,.31,
.31,.25,.20,.22,.32)# catch can depths caught during test converted to in/hr
SI<-FALSE # use U.S. customary units
smd<-4.4 #soil moisture depletion of 4.4 inches
rate<-4.6 # 4.6 gpm sprinkler discharge
sl<-50; ss<-30 # 30 x 50 ft sprinkler x lateral spacing
dur<-23.5 #23.5 hr duration (24 hour set)
AELQ(x,rate,ss,sl,dur,smd,SI)
# now for a lower applied depth for alternate mode of AELQ
#computation
dur<-11.5 #change irrigation duration to a 12 hour set (11.5 hrs)
AELQ(x,rate,ss,sl,dur,smd,SI)
# }
Run the code above in your browser using DataLab