Preps your system for the things we'll be doing in the training session on Wed

DWR_training_2021-01-20

install.packages(c('rmarkdown', 
                    'knitr', 
                    'lubridate', 
                    'ggplot2', 
                    'data.table', 
                    'readxl',
                    'RSQLite',
                    'dplyr'
                   )
                 )

#------------------------------------------------------------------
# function to calculate fish condition - you will copy and paste this to your utils.R script:

condition = function(weights, lengths) {
  if(any(lengths == 0 | weights == 0)) stop("some value(s) are 0")
  num = 1e5*weights
  den = lengths^3
  K = num/den
  return(K)
}
#-----------------------------------------------------------------