From 66494e5dc575287ee4fa6080b5da222d1c6d5548 Mon Sep 17 00:00:00 2001 From: Efrain Gonzalez Date: Tue, 20 Jun 2017 15:57:10 -0400 Subject: [PATCH] Don't use this code yet changed if handling within chngrown function --- RAutoClDs.R | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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 } -- 2.29.0