R/prepExprs.R

prepExprs <- function(x) { 

  xx <- assays(x)$exprs
  if (any(is.na(xx))) {
    message('Imputing NAs...')
    xx <- impute.knn(xx)$data
  }
  return(xx)
        
}
RamsinghLab/ozymandias documentation built on May 9, 2019, 9:21 a.m.