R/graph2latex.R

In allenzhuaz/gMCPmini: Graph Based Multiple Comparison Procedures (Minimized Version without Java Dependency)

getLaTeXFraction <- function(x) {
  result <- c()
  for (nom in strsplit(as.character(getFractionString(x)), split = "/")) {
    if (length(nom) == 1) {
      result <- c(result, nom)
    } else {
      result <- c(result, paste("\\frac{", nom[1], "}{", nom[2], "}", sep = ""))
    }
  }
  return(result)
}