R/PlotLifeHistory.R

In DanOvando/DLSA: Library Data Limited Stock Assessment Modules

#' Plot Life History
#'
#' @return
#' @export
PlotLifeHistory<- function()
{

  Lengths<- LengthAtAge(1:Fish$MaxAge,Fish,0)

  Maturity<- MaturityAtAge(Lengths,Fish)

  LifeMat<- data.frame(1:Fish$MaxAge,Lengths,Maturity)

  colnames(LifeMat)<- c('Age','Length','PercentMature')

  pdf(file=paste(FigureFolder,AssessmentName,' Life History.pdf',sep=''))

  LifePlot<- ggplot(LifeMat,aes(x=Age,y=Length,color=PercentMature))+geom_line(size=2)+ylab('Length (cm)')

  print( LifePlot + scale_colour_gradient(limits=c(0, 1), low="steelblue2",high='red'))

  dev.off()
}