R/center.R

In SWS-Methodology/faoswsFood: Package to perform the computation of food consumption FAO food balance sheets

##' Center
##' These four different functions provide estimates for the food consumption 
##' values in year t+1 given the consumption in year t, changes in income, and 
##' the elasticity of the particular commodity.
##' 
##' @param type A character value.
##' 
##' @export
##' 

center <- function(type = c("0", "1", "2", "3", "NA"), ...) {
    
    type <- match.arg(type)
    # if(is.na(type)) {func = function(...){NA_real_}}
    func <- switch(type,
                   `0` = linear,
                   `1` = logLog,
                   `2` = semiLog,
                   `3` = logInverse,
                   `NA` = function(...){NA_real_})
    
    func(...)
}