Get the predatory (eating/catch) statistics of a stock/fleet subject

This function produces similar output as the standalone Gadget's printPredatorPrey type output

getPredation(x, type)

Arguments

x	Stock or Fleet name
type	Must be either "stock" or "fleet"

Value

A matrix of predator-prey statistics of an subject inside the list(catch = ...) object

Examples

if (FALSE) {
if(interactive()){
 exPath <- loadExample()
 initGadget(exPath, "refinputfile")
 stat <- getPredation("comm", "fleet")
 print(stat$catch$had)
 endGadget()
 }
}