From 9c467bfff81af7aee601433a469c44945ca136be Mon Sep 17 00:00:00 2001 From: Efrain Gonzalez Date: Wed, 14 Jun 2017 12:43:05 -0400 Subject: [PATCH] Added Normal to glossary of terms --- RClean4.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/RClean4.R b/RClean4.R index 781e99d..fb09a0d 100644 --- a/RClean4.R +++ b/RClean4.R @@ -44,7 +44,7 @@ chngrownm <- function(mat){ colnames(mat)[j] <- paste0("Braak",b) b = b + 1 } - if(grepl("group|disease|control|AD|normal|diagnosis|Alzheimer|Control",mat[2,j])==TRUE){ + if(grepl("group|disease|control|AD|normal|diagnosis|Alzheimer|Control|Normal",mat[2,j])==TRUE){ colnames(mat)[j] <- paste0("Group",g) g = g + 1 } -- 2.29.0