R/formatPval.R

In biostatUZH: Misc Tools of the Department of Biostatistics, EBPI, University of Zurich

## =============
## format P-Value
## =============

## x: vector of p-values to format
## Formatting rules:
## * p-values lower than break.eps are formatted as: "< break.eps"
## * p-values lower than break.middle and larger than break.eps have ONE digit
## * p-values larger than break.middle have TWO digits

formatPval <- function(x, break.eps = 1e-04, break.middle = 0.01, na.form = "NA", ...)
{
    format1Pval <- function (pv) {
        if (is.na(pv)) {
            na.form 
        } else if (pv < break.eps) {
            paste("<", format(break.eps, scientific=FALSE))
	} else {
            largep <- pv >= break.middle
            format(pv, digits=1+largep, nsmall=1+largep, scientific=FALSE, ...)
        }
    }
    vapply(X = x, FUN = format1Pval, FUN.VALUE = "", USE.NAMES = TRUE)
}