R/compareResults.ParameterValues.R

In wStockhausen/rCompTCMs: Package to compare TCSAM02, rsimTCSAM, and TCSAM2013 model runs

#'
#'@title Function to compare parameter values among several models (UNDER DEVELOPMENT!)
#'
#'@description This function compares parameter values
#'   among several models.
#'
#'@param objs - list of resLst objects
#'@param colour_scale - ggplot2 colour scale to substitute for default (if not NULL)
#'@param fill_scale - ggplot2 fill scale to substitute for default (if not NULL)
#'@param showPlot - flag (T/F) to show plot
#'@param verbose - flag (T/F) to print diagnostic information
#'
#'@return ggplot2 object(?)
#'
#'@details Under development!
#'
#'@import ggplot2
#'
#'@export
#'
compareResults.ParameterValues<-function(objs,
                                        colour_scale=NULL,
                                        fill_scale=NULL,
                                        showPlot=FALSE,
                                        verbose=FALSE){
    if (verbose) cat("starting rCompTCMs::compareResults.ParameterValues().\n");
    options(stringsAsFactors=FALSE);

    cases<-names(objs);

    mdfr<-extractMDFR.Results.ParameterValues(objs,verbose=verbose);



    if (verbose) cat("finished rCompTCMs::compareResults.ParameterValues().\n");
    return(plots)
}