Update getPredators.R

Removed unused argument `functl.grp` and added `return(table)` to get values out of lapply function