data(preyFAs)
my.preybase <- preyFAs[, -c(1,3)]
# Note: uncomment examples to run. CRAN tests fail because execution time > 5 seconds
# diets.out <- prey.on.prey(my.preybase, 2)
# round(MEANmeth(diets.out), 3)
Run the code above in your browser using DataLab