R/adjust_value.R

In gfunk0704/RcppQuantitativeFinance: What the Package Does in One 'Title Case' Line

.AdjustValue <- function(value, type) {
    switch(tolower(type),
           "bps"        = value * 1E-4,
           "percentage" = value * 1E-2,
           "value"      = value,
           stop("unknown type of value"))
}