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 }