diff --git a/RCleanDscret.R b/RCleanDscret.R index 7ca3f86..8f5efe2 100644 --- a/RCleanDscret.R +++ b/RCleanDscret.R @@ -47,7 +47,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 }