Don't use this code yet

Update to cgeneID call of function

Don't use this code yet
Update to cgeneID call of function
Efrain Gonzalez
1 parent db3a0d69f1
Showing 1 changed file with 2 additions and 2 deletions Show diff stats
RAutoClDs.R
@@ -313,7 +313,7 @@ THEFT &lt;- 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 &lt;- function(){
  
  
 				##Changing the gene ID to gene name
-				ALZDAT1 <- cgeneID(t(geneIDNam),t(alzdat))
+				ALZDAT1 <- cgeneID(geneIDNam,alzdat)
 				colnames(ALZDAT) = ALZDAT1[1,]
...	...	@@ -313,7 +313,7 @@ THEFT <- function(){
313	313
314	314
315	315	##Changing the gene ID to gene name
316		- ALZDAT1 <- cgeneID(t(geneIDNam),t(alzdat))
	316	+ ALZDAT1 <- cgeneID(geneIDNam,alzdat)
317	317	colnames(ALZDAT) = ALZDAT1[1,]
318	318
319	319
...	...	@@ -596,7 +596,7 @@ THEFT <- function(){
596	596
597	597
598	598	##Changing the gene ID to gene name
599		- ALZDAT1 <- cgeneID(t(geneIDNam),t(alzdat))
	599	+ ALZDAT1 <- cgeneID(geneIDNam,alzdat)
600	600	colnames(ALZDAT) = ALZDAT1[1,]
601	601
602	602