library(NeAtlIBTS.R)
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)
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)
par(mfrow=c(1,2)) gearPlotHH.wgdp("EVHOE",c(2011:2016),4,.3) gearPlotHH.wgdp("EVHOE",c(2011:2016),4,.4,pF=F)
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)
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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.