R/fixna.R

In chuangaocornell/gtx2: Genetics ToolboX

Defines functions fixNA

Documented in fixNA

fixNA <- function(tt, na.string = "NA") {
  if (length(dim(tt)) == 1 || length(dim(tt)) == 2) rownames(tt)[is.na(rownames(tt))] <- na.string
  if (length(dim(tt)) == 2) colnames(tt)[is.na(colnames(tt))] <- na.string
  return(tt)
}