R/JSp.R

In SophiaJia/Jsurvformat: Survival analysis output format for clinical research

#'Format P value 
#'
#'JS.p is intended for formatting p-value 
#'@param value numeric vector of p-value (possibly with NAs )
#'@return A numeric vector of corrected p-value
#'@examples
#'JS.p(0.060)
#'JS.p(0.0050)
#'JS.p(0.00001)
#'@export 
#'@name JS.p 
#'
JS.p <-function (value) {
        
        f <- function(p) {
                if (is.na(p)) 
                        p <- NA
                else if (p < 0 || p > 1) 
                        stop(paste(p, "is not a valid probability"))
                else if (p > 0.99) 
                        p <- "> 0.99"
                else if (p > 0.1) 
                        p <- format(round(p, 2), nsmall = 2)
                else if (p > 0.001) 
                        p <- format(round(p, 3), nsmall = 2)
                else p <- "< 0.001"
                return(p)
        }
        p <- sapply(value, f)
        return(p)
}