R/dist_name.R

In softloud/metasim: Simulate Meta-Analytic Data

#' R to name
#'
#' A function that switches out the R name for a distribution with the real
#' name, and back again.
#'
#' @param dist A string with a distribution name, e.g. "lnorm" or "log-normal".
#' @param toR Boolean as to whether it's to the R name or not. Defaults to
#' false.
#'
#' @export

dist_name <- function(dist, toR = FALSE) {
  if (toR) {
    switch(dist,
           normal = "norm",
           Cauchy = "cauchy",
           "log-normal" = "lnorm",
           beta = "beta",
           Weibull = "weibull",
           exponential = "exp",
           gamma = "gamma",
           Pareto = "pareto",
           "chi-squared" = "chisq",
           "error")
  } else {
    switch(dist,
           norm = "normal",
           cauchy = "Cauchy",
           lnorm = "log-normal",
           beta = "beta",
           weibull = "Weibull",
           exp = "exponential",
           gamma = "gamma",
           pareto = "Pareto",
           chisq = "chi-squared",
           "error")
  }
}