Plots time series of observed and predicted recruitment

plotsrts(object, relative = TRUE)

Arguments

object

Input FLSR of FLSRs object

Value

ggplot

Examples

data(ple4)
bh <- srrTMB(as.FLSR(ple4,model=bevholtSV),spr0=mean(spr0y(ple4)))
plotsrts(bh)

# Try more models
hs <- srrTMB(as.FLSR(ple4,model=segreg),spr0=(spr0y(ple4)),plim=0.05,pmax=0.2)
ri <- srrTMB(as.FLSR(ple4,model=rickerSV),spr0=mean(spr0y(ple4)))
bh.tv <- srrTMB(as.FLSR(ple4,model=bevholtSV),spr0=spr0y(ple4))
ri.tv <- srrTMB(as.FLSR(ple4,model=rickerSV),spr0=spr0y(ple4))
all= FLSRs(hs=hs,bh=bh,ri=ri,bh.tv=bh.tv,ri.tv=ri.tv)
plotsrts(all)

do.call(c,lapply(all,function(x)AIC(x))) # AIC
#>       hs       bh       ri    bh.tv    ri.tv 
#> 89.81315 86.84334 89.09788 87.37908 93.09520