From 18c7602e69fd98ea57dcd9e51e86d07062aeebf1 Mon Sep 17 00:00:00 2001 From: Efrain Gonzalez Date: Wed, 31 May 2017 14:18:07 -0400 Subject: [PATCH] error in NAFIXING fixed --- RClean2.R | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/RClean2.R b/RClean2.R index ac43c35..4bebc04 100644 --- a/RClean2.R +++ b/RClean2.R @@ -88,16 +88,14 @@ cinfo <- function(mat){ NAFIXING <- function(GIDNAM){ row <- dim(GIDNAM)[1] i <- 1 - x <- 1 for(i in 1:row){ - if(grepl("^NA\\s*$",GIDNAM[i,2])==TRUE){ - GIDNAM[i,2] <- gsub(".*",paste0(NA,x),GIDNAM[i,2]) - x <- x + 1 + if(grepl("^NA\\s*$",GIDNAM[i,2])==TRUE||is.na(GIDNAM[i,2])==TRUE){ + GIDNAM[i,2] <- GIDNAM[i,1] } i <- i + 1 } GIDNAM -} +} #4#Function for changing the gene ID to gene name cgeneID <- function(GeneName,DATA){ -- 2.29.0