Update getPredators.R

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