R/RepNAmin.R

Defines functions RepNAmin

# Auxiliry function for Beran curves. Replace NA in a vector x with minimum value
RepNAmin <- function(x)
{
  min.x <- min(x, na.rm = T)
  x[is.na(x)] <- min.x
  return(x)
}
daniel258/CausalSemiComp documentation built on Dec. 24, 2021, 5:06 p.m.