R/jags.extract.r

In jae0/snowcrab: Snow crab assessment suite for aegis* and associated projects.

  

  jags.extract = function( jo, var, func, cnames=c( "cfanorth", "cfasouth", "cfa4x" ) ) {
    o =  summary( jo[[var]], func)[["stat"]] 
    if ( is.vector(o) ) o = t(o)
    colnames( o) = cnames
    return(o)
  }