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 | } |