frmtp: Format p-values
In dewittpe/qwraps: Quick Wraps

Description Usage Arguments Details Value Note Author(s) References See Also Examples

function does. ~~

1 2	frmtp(x, pdigits = getOption("qwraps.pdigits", 4), equal.sign = FALSE)

`x`
`pdigits`
`equal.sign`

above ~~

Peter DeWitt

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (x, pdigits = getOption("qwraps.pdigits", 4), equal.sign = FALSE)
{
   out <- vector("character", length(x))
   out <- formatC(x, pdigits, format = "f")
   idx <- (x < 0.1^pdigits)
   out[idx] <- paste("\textless", formatC(0.1^pdigits, pdigits,
       format = "f"))
   if (equal.sign)
       out[!idx] <- paste("=", out[!idx])
   out[is.na(x)] <- ""
   return(out)
 }