Update (UNTESTED)

Efrain Gonzalez
1 parent 234f89c9aa
Showing 1 changed file with 1 additions and 1 deletions Show diff stats
RCleanDscret.R
@@ -47,7 +47,7 @@ chngrownm &lt;- 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
 			}
...	...	@@ -47,7 +47,7 @@ chngrownm <- function(mat){
47	47	colnames(mat)[j] <- paste0("Braak",b)
48	48	b = b + 1
49	49	}
50		- if(grepl("group\|disease\|control\|AD\|normal\|diagnosis\|Alzheimer\|Control",mat[2,j])==TRUE){
	50	+ if(grepl("group\|disease\|control\|AD\|normal\|diagnosis\|Alzheimer\|Control\|Normal",mat[2,j])==TRUE){
51	51	colnames(mat)[j] <- paste0("Group",g)
52	52	g = g + 1
53	53	}