# 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)
xcu<-CU(x)
#round results
curnd<-round(xcu,2)
xcu
curnd
# }
Run the code above in your browser using DataLab