R/mfrac.R

In Tex4exams: Generating 'Sweave' Code for 'R/exams' Questions in Mathematics

Defines functions mfrac

Documented in mfrac

## Convert a list of decimals into vertical fractions
mfrac <- function(z){
  n <- length(z)
  y <- paste0(rfrac(z[1]))
  i <- 2
  while (i <= n){
    y <- paste0(y,",",rfrac(z[i]))
    i <- i+1
  }
  return(y)
}

Try the Tex4exams package in your browser