# NOT RUN {
# data below are volumes caught in ml. Catch cans must be of
# equal surface area at top when using volume data
x<-c(47,42,45,24,13,26,33,34,27,30,40,44,32,12,12)
xdu<-DU(x)
#round results
durnd<-round(xdu,2)
xdu
durnd
# }
Run the code above in your browser using DataLab