Found problem with the function cgeneID and fixed it.

Efrain Gonzalez
1 parent cc59b7f832
Showing 1 changed file with 1 additions and 1 deletions Show diff stats
RClean2.R
@@ -104,7 +104,7 @@ cgeneID &lt;- function(GeneName,DATA){
 	colGene <- dim(GeneName)[2]
 	j <- 1
 	for(j in 1:colGene){
-		chngsreq <- grep(GeneName[1,j],DATA[1,])
+		chngsreq <- grep(paste0("^",GeneName[1,j]),DATA[1,])
 		DATA[1,chngsreq] <- gsub(GeneName[1,j],GeneName[2,j],DATA[1,chngsreq])
 		j = j+1
 	}
...	...	@@ -104,7 +104,7 @@ cgeneID <- function(GeneName,DATA){
104	104	colGene <- dim(GeneName)[2]
105	105	j <- 1
106	106	for(j in 1:colGene){
107		- chngsreq <- grep(GeneName[1,j],DATA[1,])
	107	+ chngsreq <- grep(paste0("^",GeneName[1,j]),DATA[1,])
108	108	DATA[1,chngsreq] <- gsub(GeneName[1,j],GeneName[2,j],DATA[1,chngsreq])
109	109	j = j+1
110	110	}