# NOT RUN {
#see pp 41-43 of reference document
SI<-FALSE # use U.S. customary units
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
rate<-4.6 # 4.6 gpm sprinkler discharge rate (measured)
sl<-50; ss<-30 # 30 x 50 ft sprinkler x lateral spacing
dur<-1 # 1 hr test duration (dur. in min)
PELQ(x,SI=FALSE,rate,ss,sl,dur)
# }
Run the code above in your browser using DataLab