R/utils.R

In sfeuerriegel/ResearchGroupTools: Collection of Custom Helper Functions

signifianceToStars <- function(p) {
  if (is.na(p)) {
    return("")
  } else if (p < .001) {
    return("***")
  } else if (p < .01) {
    return("**")
  } else if (p < .05) {
    return("*")
  }

  return("")
}

signifianceToTeX <- function(p, prefix = "\\sym{", suffix = "}") {
  if (is.na(p)) {
    return("")
  } else if (p < .001) {
    return(paste0(prefix, "***", suffix))
  } else if (p < .01) {
    return(paste0(prefix, "**", suffix))
  } else if (p < .05) {
    return(paste0(prefix, "*", suffix))
  }

  return("")
}

showColumns <- function(names) {
  cat("Column names: \\textbf{", paste0(names, collapse = "} & \\textbf{"), "} \\\\ \n", sep = "")
}