R/createControlObs.R

In cmlegault/WKFORBIAS: Create and anlyze retro assessments

#' Create control list for observations
#'  
#' Determines error structures, CVs, samples sizes, etc., defaults set so can just change one or more values as needed
#' @param ESSCAA effective sample size for multinomial distribution of catch at age (default=100)
#' @param CtotCV coefficient of variation for total catch in weight (default=0.05)
#' @export

createControlObs <- function(ESSCAA=100, CtotCV=0.05){
  controlObs <- list()
  controlObs$ESSCAA <- ESSCAA
  controlObs$CtotCV <- CtotCV
  return(controlObs)
}