R/fun_less.R

fun_less <- function(x, ...) {
  nx <- as.numeric(x)
  res <- ifelse(nx < 1e-04, paste("<0.0001"), x)
  return(res)
}

Try the ClinicalTrialSummary package in your browser

Any scripts or data that you put into this service are public.

ClinicalTrialSummary documentation built on May 2, 2019, 1:13 p.m.