Commit b0ad80bb4c1950d4f23a1495e811b76dc8362e4d
1 parent
7acfa60c60
Exists in
master
UPDATE!!!! Changed from i+1 < to i+1<=
Will affect previous results
Showing
1 changed file
with
1 additions
and
3 deletions
Show diff stats
RMatchGenes.R
| ... | ... | @@ -33,7 +33,7 @@ Check2Match <- function(){ |
| 33 | 33 | meds <- eddy[,1] |
| 34 | 34 | |
| 35 | 35 | } |
| 36 | - if(i > 1 && i + 1 < length(numrows)){ | |
| 36 | + if(i > 1 && ((i + 1) <= length(numrows))){ | |
| 37 | 37 | eddfile <- ANDIS[i + 1] |
| 38 | 38 | edd <- eddfile %>% |
| 39 | 39 | read_delim(.,delim = "\t") |
| ... | ... | @@ -44,7 +44,6 @@ Check2Match <- function(){ |
| 44 | 44 | |
| 45 | 45 | |
| 46 | 46 | } |
| 47 | - i <- i + 1 | |
| 48 | 47 | } |
| 49 | 48 | meds |
| 50 | 49 | for(j in 1:length(numrows)){ |
| ... | ... | @@ -62,7 +61,6 @@ Check2Match <- function(){ |
| 62 | 61 | c("GSE",.,"matched.txt") %>% |
| 63 | 62 | paste(collapse = "") |
| 64 | 63 | write.table(Finedm,file = nam_fil_ed,sep = "\t",row.names = FALSE) |
| 65 | - j <- j + 1 | |
| 66 | 64 | } |
| 67 | 65 | meds |
| 68 | 66 | } |