R/algorithms__par.transform.R

In feng-li/movingknots: Efficient Bayesian multivariate surface regression

#' Parameter transformation.
#'
#' Details are available in the paper.
#' @param par NA
#' @param method NA
#' @return NA
#' @author Feng Li, Department of Statistics, Stockholm University, Sweden.
#' @note First version: ; Current: .
#' @export
par.transform <- function(par, method)
  {
    if(tolower(method) == "identity")
      {
        out <- par
      }
    else if(tolower(method) == "log")
      {
        out <- exp(par)
      }
    return(out)
  }