# NOT RUN {
# units can be SI or US Customary, e.g.
# SI - mm for catch can data and m for lane and catch
# can spacing
# U.S. cust. - in. for catch can data and ft for lane
# and catch can spacing
left<-c(0.17,0.22,0.18,0.21,0.13,0.05,0.02,0) # units are in.
right<-c(0.16,0.2,0.21,0.2,0.21,0.13,0.06,0.02)
ls<-165;gs<-16 # units are ft
travunif(ls,gs,left,right)
# }
Run the code above in your browser using DataLab