R/dcmpf.R

In cwhmisc: Miscellaneous Functions for Math, Plotting, Printing, Statistics, Strings, and Tools

dc <- function(x, d, ch = "&") {
     # d = 0: "x&0"
  frac <- function(x, d) {
    res <- abs(x - trunc(x))
    if (!missing(d)) res <- round(10 ^ d * res)
    res
  }
  d  <- max(d, 1)
  fr <- frac(x, d)
  paste(trunc(x), ch, fr, sep = "")
}

dcn <- function(x, d, ch = "&") {
          # d = 0: no "&" !!
  d <- max(d, 1)
  s <- sapply( x, function(x) eval(parse(text = paste("sprintf('%.", d,
              "f',", x, ")", sep = ""))) )
  gsub( "\\.", ch, s )
}

mpf <- function(r, after) {
    paste(if (r<0) "-" else "+", eval(parse(text = paste("sprintf('%.",
       after, "f', abs(", r, "))", sep = ""))))
}