R/fun_less.R

In ALassoSurvIC: Adaptive Lasso for the Cox Regression with Interval Censored and Possibly Left Truncated Data

Defines functions fun_less

Documented in fun_less

fun_less <- function(x, ...) {
  nx <- as.numeric(x)
  ax <- c()
  for (i in 1:length(x)) {
    ax[i] <- ifelse(nx[i] < 1e-04, paste("<0.0001"), x[i])
  }
  return(ax)
}

Try the ALassoSurvIC package in your browser