R/writeModelResultsToCSV.Surveys.R

In wStockhausen/rTCSAM2015: A set of tools to set up input for, and interact with output from, a TCSAM2015 model run, as well as to compare TCSAM2015 and rsimTCSAM runs.

#'
#'@title Write survey quantities from model results from TCSAM2015 and rsimTCSAM model runs to a csv file.
#'
#'@description Function to write survey quantities from model results from TCSAM2015 and rsimTCSAM model runs to a csv file.
#'
#'@param tcsams - single TCSAM2015 model report object, or named list of such
#'@param rsims - single rsimTCSAM results object, or named list of such
#'@param cast.formula - formula for casting (aggregating)
#'@param csv - base name for csv files to write to
#'@param verbose - flag (T/F) to print debug info
#'
#'@return nothing
#'
#'@details none.
#'
#'@export
#'
writeModelResultsToCSV.Surveys<-function(tcsams=NULL,
                                         rsims=NULL,
                                         cast.formula="v+y+x+m",
                                         csv="ModelResults.Surveys",
                                         verbose=FALSE){
    #abundance
    path<-'mr/S_list/N_vyxmsz';
    csvp<-paste0(csv,".Abundance.csv");
    extractModelResults.RepObjs(tcsams,rsims,path,
                                label.value="Abundance (millions)",
                                cast.formula=cast.formula,csv=csvp);
    #biomass
    path<-'mr/S_list/B_vyxms';
    csvp<-paste0(csv,".Biomass.csv");
    extractModelResults.RepObjs(tcsams,rsims,path,
                                label.value="Biomass (1000's t)",
                                cast.formula=cast.formula,csv=csvp);
    
    if (verbose) cat("Done!\n");
}