R/na.pad.R

na.pad <- function (vec, ind) {
  vec0 <- numeric(length(ind))
  vec0[!ind] <- vec
  vec0[ind] <- NA
  return(vec0)
}

Try the SingleCellStat package in your browser

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

SingleCellStat documentation built on June 8, 2025, 12:51 p.m.