From 4255e424d8aa63da2b8754e0e531cfaf10191e44 Mon Sep 17 00:00:00 2001 From: Efrain Gonzalez Date: Wed, 31 May 2017 12:12:54 -0400 Subject: [PATCH] Found problem with the function cgeneID and fixed it. --- RClean2.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/RClean2.R b/RClean2.R index cb8981d..e042964 100644 --- a/RClean2.R +++ b/RClean2.R @@ -104,7 +104,7 @@ cgeneID <- 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 } -- 2.29.0