R/getStd.R

In wStockhausen/rTCSAM2013: Functions to run and plot output from TCSAM2013 models.

#'
#'@title Create a dataframe (an std object) from an ADMB std file
#'
#'@description Function to create a dataframe (an std object) from an ADMB std file.
#'
#'@param inp - name of the ADMB std file
#'
#'@return dataframe of class 'tcsam2013.std', corresponding to the std file, or NULL if file does not exist
#'
#'@details Uses \code{wtsUtilities::selectFile} to open a file dialog if in.par is NULL.
#'
#'@export
#' 
getStd<-function(inp=NULL){
    options(stringsAsFactors=FALSE);
    if (is.null(inp)){
        inp<-wtsUtilities::selectFile(ext='std',caption="Select std file");
    }
    dfr<-NULL;
    if ((!is.null(inp))&&file.exists(inp)){
        dfr = read.table(inp,as.is=T,header=F,skip=1);
        names(dfr)<-c('index','name','value','stdv');
        class(dfr)<-c('tcsam2013.std',class(dfr));
    }
    return(invisible(dfr));
}