diff --git a/RAutoClDs.R b/RAutoClDs.R
index d954a30..e9447b1 100644
--- a/RAutoClDs.R
+++ b/RAutoClDs.R
@@ -313,7 +313,7 @@ THEFT <- function(){
 			
 			
 			##Changing the gene ID to gene name
-			ALZDAT1 <- cgeneID(t(geneIDNam),t(alzdat))
+			ALZDAT1 <- cgeneID(geneIDNam,alzdat)
 			colnames(ALZDAT) = ALZDAT1[1,]
 						
 			
@@ -596,7 +596,7 @@ THEFT <- function(){
 				
 				
 				##Changing the gene ID to gene name
-				ALZDAT1 <- cgeneID(t(geneIDNam),t(alzdat))
+				ALZDAT1 <- cgeneID(geneIDNam,alzdat)
 				colnames(ALZDAT) = ALZDAT1[1,]