plotsrs based on plot(FLSRs) Plots FLSRs, i.e. multiple S-R relationships

plotsrs(object, path = TRUE, b0 = FALSE, rel = FALSE)

Arguments

object

of class FLSRS

path

connect points sequentially

Value

ggpplot

Examples

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

plotsrs(bh,b0=TRUE) # plot through to B0

plotsrs(bh,b0=TRUE,rel=TRUE) # plot relative to B0

# 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)
plotsrs(all)

plotsrs(all,path=FALSE)

# plot through to b0
plotsrs(all,b0=TRUE)

# plot all relative relative to B0
plotsrs(all,rel=TRUE)

plotsrs(all,rel=TRUE,b0=TRUE)