R/TrimP.R

Defines functions TrimP

Documented in TrimP

#' @export
TrimP <- function(p) {
  if (!is.nan(p) & !is.na(p)) {
    if (p < 0.001) p.value <- "<0.001"
    else if (p > 0.999) p.value <- "1"
    else p.value <- Fixed(p, 3)
  } else {
    p.value <- ""
  }
  return(p.value)
}
danielle0730/domstat-cleanup documentation built on May 22, 2019, 2:18 p.m.