R/make.mortality.r

In jae0/bio.snowcrab: Snow crab assessment suite using aegis* and associated projects and data streams.

make.mortality = function(p, redo=F) {
  # est total mortality
  outfilename = file.path( p$annual.results, "mortality.rates.rdata" )
  if (!redo) {
    load( outfilename )
    return ( xx )
  }

  save( xx, file=outfilename, compress=T )
  return(xx)
}