diff --git a/RAutoClDs.R b/RAutoClDs.R
index 4c18074..2cf8af9 100644
--- a/RAutoClDs.R
+++ b/RAutoClDs.R
@@ -104,7 +104,7 @@ NAFIXING <- function(GIDNAM){
 }	
 
 #4#Function for changing the gene ID to gene name
-cgeneID2 <- function(GeneName,DATA){
+cgeneID <- function(GeneName,DATA){
 	nj <- t(GeneName)
 	nq <- t(DATA)
 	colGene <- dim(nj)[2]