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){