Commit 66494e5dc575287ee4fa6080b5da222d1c6d5548
1 parent
69ac507843
Exists in
master
Don't use this code yet
changed if handling within chngrown function
Showing
1 changed file
with
4 additions
and
4 deletions
Show diff stats
RAutoClDs.R
... | ... | @@ -38,19 +38,19 @@ chngrownm <- function(mat){ |
38 | 38 | colnames(mat)[e] <- paste0("Sex",r) |
39 | 39 | r = r + 1 |
40 | 40 | } |
41 | - else if(grepl("postmorteminterval|PMI|pmi",mat[2,e])==TRUE){ | |
41 | + if(grepl("postmorteminterval|PMI|pmi|interval",mat[2,e])==TRUE){ | |
42 | 42 | colnames(mat)[e] <- paste0("PMI",a) |
43 | 43 | a = a + 1 |
44 | 44 | } |
45 | - else if(grepl("age|Age|AGE",mat[2,e])==TRUE){ | |
45 | + if(grepl("age|Age|AGE",mat[2,e])==TRUE){ | |
46 | 46 | colnames(mat)[e] <- paste0("Age",h) |
47 | 47 | h = h + 1 |
48 | 48 | } |
49 | - else if(grepl("braak|b&b",mat[2,e])==TRUE){ | |
49 | + if(grepl("braak|b&b",mat[2,e])==TRUE){ | |
50 | 50 | colnames(mat)[e] <- paste0("Braak",g) |
51 | 51 | g = g + 1 |
52 | 52 | } |
53 | - else if(grepl("group|disease|control|AD|normal|diagnosis|Alzheimer|Control|Normal",mat[2,e])==TRUE){ | |
53 | + if(grepl("group|disease|control|AD|normal|diagnosis|Alzheimer|Control|Normal",mat[2,e])==TRUE){ | |
54 | 54 | colnames(mat)[e] <- paste0("Group",o) |
55 | 55 | o = o + 1 |
56 | 56 | } |