R/output.ci.R

In mem: The Moving Epidemic Method

#' function to format output
#'
#' @keywords internal
output.ci <- function(i.type, i.level, i.tails) {
  paste(
    switch(i.type,
      "Arithmetic mean",
      "Geometric mean",
      "Median",
      "Median",
      "Arithmetic mean",
      "Geometric mean"
    ),
    " and its ",
    switch(i.tails,
      "one sided",
      "two sided"
    ),
    " ",
    paste(i.level * 100, collapse = ", "),
    "% CI using ",
    switch(i.type,
      "the normal approximation",
      "the (log) normal approximation",
      "the KC Method",
      "bootstrap",
      "2*SD",
      "(log) 2*SD"
    ),
    sep = ""
  )
}