R code to calculate Pacific Cod mean weight data