diff --git a/RAutoClDs.R b/RAutoClDs.R
index 2e23841..4c18074 100644
--- a/RAutoClDs.R
+++ b/RAutoClDs.R
@@ -38,19 +38,19 @@ chngrownm <- function(mat){
 				colnames(mat)[e] <- paste0("Sex",r)
 				r = r + 1
 			}
-			else if(grepl("postmorteminterval|PMI|pmi",mat[2,e])==TRUE){
+			if(grepl("postmorteminterval|PMI|pmi|interval",mat[2,e])==TRUE){
 				colnames(mat)[e] <- paste0("PMI",a)
 				a = a + 1
 			}
-			else if(grepl("age|Age|AGE",mat[2,e])==TRUE){
+			if(grepl("age|Age|AGE",mat[2,e])==TRUE){
 				colnames(mat)[e] <- paste0("Age",h)
 				h = h + 1
 			 }
-			else if(grepl("braak|b&b",mat[2,e])==TRUE){
+			if(grepl("braak|b&b",mat[2,e])==TRUE){
 				colnames(mat)[e] <- paste0("Braak",g)
 				g = g + 1
 			}
-			else if(grepl("group|disease|control|AD|normal|diagnosis|Alzheimer|Control|Normal",mat[2,e])==TRUE){
+			if(grepl("group|disease|control|AD|normal|diagnosis|Alzheimer|Control|Normal",mat[2,e])==TRUE){
 				colnames(mat)[e] <- paste0("Group",o)
 				o = o + 1
 			}