shiny/Plot_Points_and_Bounds_Fn.R

In nwfsc-assess/geostatistical_delta-GLMM: Package for conducting spatial estimation of CPUE index standardization (fisheries, ecology, etc)

Plot_Points_and_Bounds_Fn = function( x, y, ybounds, fn=lines, col_bounds="black", bounds_type="whiskers", border=NA, border_lty="solid", ... ){
  fn( y=y, x=x, ... )
  if( bounds_type=="whiskers" ){
    for(t in 1:length(y)){
      lines( x=rep(x[t],2), y=ybounds[t,], col=col_bounds, lty=border_lty)
    }
  }
  if( bounds_type=="shading" ){
    polygon( x=c(x,rev(x)), y=c(ybounds[,1],rev(ybounds[,2])), col=col_bounds, border=border, lty=border_lty)
  }
}