Efrain Gonzalez / Cleaning and Fixing Data with R

Download as
Browse Code ยป

Commit d0434e850280a47cc524d3a1014b671faba506f9

Authored by Efrain Gonzalez
1 parent 3a23b98ac6
Exists in master

Update outputting 4 files: 

aftexcel,avg,zscore,dscrt
Showing 1 changed file with 4 additions and 4 deletions   Show diff stats
... ... @@ -413,7 +413,7 @@ THEFT <- function(){
413 413 .[[1]] %>%
414 414 .[length(.)] %>%
415 415 gsub("\\D","",.) %>%
416   - c("GSE",.,"newout.txt") %>%
  416 + c("GSE",.,"avg.txt") %>%
417 417 paste(collapse = "")
418 418 noutput <- newoutput %>%
419 419 t()%>%
... ... @@ -436,7 +436,7 @@ THEFT &lt;- function(){
436 436 .[[1]] %>%
437 437 .[length(.)] %>%
438 438 gsub("\\D","",.) %>%
439   - c("GSE",.,"avg.txt") %>%
  439 + c("GSE",.,"zscore.txt") %>%
440 440 paste(collapse = "")
441 441 zscraw <- scrawdat %>%
442 442 t()%>%
... ... @@ -444,7 +444,7 @@ THEFT &lt;- function(){
444 444 zscraw <- cbind(rownames(zscraw),zscraw)
445 445 colnames(zscraw) <- c("Gene Symbol",subjnam)
446 446 rownames(zscraw) <- NULL
447   - write.table(zscraw, file = nfnewout, sep = "\t",col.names = TRUE,row.names = FALSE)
  447 + write.table(zscraw, file = nfnzsc, sep = "\t",col.names = TRUE,row.names = FALSE)
448 448  
449 449  
450 450 ##Discretized the Data
... ... @@ -766,7 +766,7 @@ THEFT &lt;- function(){
766 766 zscraw <- cbind(rownames(zscraw),zscraw)
767 767 colnames(zscraw) <- c("Gene Symbol",subjnam)
768 768 rownames(zscraw) <- NULL
769   - write.table(zscraw, file = nfnewout, sep = "\t",col.names = TRUE,row.names = FALSE)
  769 + write.table(zscraw, file = nfnzsc, sep = "\t",col.names = TRUE,row.names = FALSE)
770 770  
771 771 ##Discretized the Data
772 772 dialzdat <- scrawdat %>%