Commit 743d3ade8da05c5c367d65f30fb3ecae74297464
1 parent
4255e424d8
Exists in
master
Update to RClean2
Showing
1 changed file
with
8 additions
and
8 deletions
Show diff stats
RClean2.R
| ... | ... | @@ -265,13 +265,13 @@ Fullalzdw <- ALZDAT %>% |
| 265 | 265 | cbind(ALZWORDF,.) |
| 266 | 266 | |
| 267 | 267 | |
| 268 | -nfna <- strsplit(alz,"[\\]") %>% | |
| 269 | - .[[1]] %>% | |
| 270 | - .[length(.)] %>% | |
| 271 | - gsub("\\D","",.) %>% | |
| 272 | - c("GSE",.,"after.txt") %>% | |
| 273 | - paste(collapse = "") | |
| 274 | -write.matrix(Fullalzdw,file = nfna,sep = "\t") | |
| 268 | +#nfna <- strsplit(alz,"[\\]") %>% | |
| 269 | +# .[[1]] %>% | |
| 270 | +# .[length(.)] %>% | |
| 271 | +# gsub("\\D","",.) %>% | |
| 272 | +# c("GSE",.,"after.txt") %>% | |
| 273 | +# paste(collapse = "") | |
| 274 | +#write.matrix(Fullalzdw,file = nfna,sep = "\t") | |
| 275 | 275 | #Perfect for excel viewing |
| 276 | 276 | nfnaex <- strsplit(alz,"[\\]") %>% |
| 277 | 277 | .[[1]] %>% |
| ... | ... | @@ -279,6 +279,6 @@ nfnaex <- strsplit(alz,"[\\]") %>% |
| 279 | 279 | gsub("\\D","",.) %>% |
| 280 | 280 | c("GSE",.,"aftexcel.txt") %>% |
| 281 | 281 | paste(collapse = "") |
| 282 | -write.table(t(Fullalzdw), file = nfnaex, sep = "\t") | |
| 282 | +write.table(t(Fullalzdw), file = nfnaex, sep = "\t",row.names = FALSE) | |
| 283 | 283 | |
| 284 | 284 |