R/round.signif.R

#' @keywords internal

round.signif <- function(x, digits=NULL, p=NULL)
{
	  if(is.null(digits))digits <- p
  ifelse(abs(x)>=1, round(x, digits), signif(x, digits))
}
lengning/gClinBiomarker documentation built on May 9, 2019, 2:55 p.m.