R/percentage.R

In ribiosUtils: Utilities from and Interface to the Bioinfo-C (BIOS) Library

#' Print a decimal number in procent format
#' 
#' 
#' @param x a decimal number, usually between -1 and 1
#' @param fmt format string, '1.1' means a digit before and after the decimal
#' point will be printed
#' 
#' @return Character string
#' @examples
#' 
#' percentage(c(0,0.1,0.25,1))
#' percentage(c(0,0.1,0.25,1), fmt="1.4")
#' percentage(c(0,-0.1,0.25,-1), fmt="+1.1")
#' 
#' 
#' @export percentage
percentage <- function(x, fmt="1.1") {
    format <- paste("%", fmt, "f%%", sep="")
    res <- sprintf(format, x*100)
    return(res)
}