R/prettyNamedUserValues.R

In blackbox: Black Box Optimization and Exploration of Parameter Space

prettyNamedUserValues <-
function (innervalues, extradigits = 0)
{
    uservalues <- prettyUserValues(innervalues, extradigits = extradigits)
    names(uservalues) <- sapply(names(innervalues), formatName,
        format = "ASCII")
    return(uservalues)
}