R/fprettyNames.R

In waternumbers/FloodForT: Flood Forecasting Toolbox

#' Function to prettyfy the ucode values to readable names 
#' 
#' Attempts to replace non-linearity names using then turnw _ to ,. All done using gsub.
#' 
#' @param x a vector of character stingsX and xts object with column names output
#' 
#' @keywords FloorForT
#' @export
#' @examples
#' # Not Run
#' # ModelBuild()
fprettyNames <- function(x){
    x <- gsub('none','None',x)
    x <- gsub('plaw','Power Law',x)
    x <- gsub('nexp','Neg. Exp.',x)
    x <- gsub('sig','Sigmoid',x)
    x <- gsub("_",",",x)
    x <- paste0("(",x,")")
    return(x)
}