library(NeAtlIBTS.R)

Plots of gear behaviour from the NorthEastern Atlantic IBTS

Warp vs Depth graphs

par(mfrow=c(1,2))
gearPlotHH.wrpdp("SWC-IBTS",c(2011:2016),1,col1="darkblue")
gearPlotHH.wrpdp("SWC-IBTS",c(2011:2016),1,col1="darkblue",pF=F)
ieigfs<-getHHdata.ts(Survey="IE-IGFS",years=c(2011:2016),quarter=4)

Door spread vs depth graphs

par(mfrow=c(1,2))
gearPlotHH.dodp(ieigfs,years=c(2011:2016),quarter=4,getICES = FALSE)
gearPlotHH.dodp(ieigfs,c(2011:2016),4,pF=F,getICES=F)

Wing spread vs depth graphs

par(mfrow=c(1,2))
gearPlotHH.wgdp("EVHOE",c(2011:2016),4,.3)
gearPlotHH.wgdp("EVHOE",c(2011:2016),4,.4,pF=F)

Net opening (Vertical) vs depth graphs

par(mfrow=c(1,2))
gearPlotHH.nodp("SP-PORC",c(2011:2016),3,.3)
gearPlotHH.nodp("SP-PORC",c(2011:2016),3,.4,pF=F)

Door spread vs Wing spread graphs

par(mfrow=c(1,2))
gearPlotHH.wgdo("SP-ARSA",c(2014:2016),1,col1="darkblue",col2="steelblue2")
gearPlotHH.wgdo("SP-ARSA",c(2014:2016),1,col1="darkblue",col2="steelblue2",pF=F)


Franvgls/NeAtlIBTS documentation built on July 1, 2024, 1:22 a.m.