Efrain Gonzalez / Cleaning and Fixing Data with R

Download as
Browse Code ยป

Commit 1ac191ee2b1395744077403f9ffb6b06e51dcf38

Authored by Efrain Gonzalez
1 parent 24ce5ef2bd
Exists in master

Update

Showing 1 changed file with 7 additions and 8 deletions   Show diff stats
1   -
2 1 #Efrain H. Gonzalez
3   -#6/22/2017
  2 +#6/25/2018
4 3 options(digits = 11)
5 4 #Libraries required to run the code
6 5 library(pryr)
... ... @@ -325,7 +324,7 @@ THEFT <- function(){
325 324 cbind(ALZWORDF,.)
326 325  
327 326 #Raw file is output
328   - nfnaex <- strsplit(alz,"[\\]") %>%
  327 + nfnaex <- strsplit(alz,"[\\|/]") %>%
329 328 .[[1]] %>%
330 329 .[length(.)] %>%
331 330 gsub("\\D","",.) %>%
... ... @@ -409,7 +408,7 @@ THEFT &lt;- function(){
409 408 ##Outputting non Z-score Average over genes
410 409 newoutput <-NuRDATN
411 410 colnames(newoutput) <- rownames(tabRDATID)
412   - nfnewout <- strsplit(alz,"[\\]") %>%
  411 + nfnewout <- strsplit(alz,"[\\|/]") %>%
413 412 .[[1]] %>%
414 413 .[length(.)] %>%
415 414 gsub("\\D","",.) %>%
... ... @@ -432,7 +431,7 @@ THEFT &lt;- function(){
432 431 colnames(scrawdat) <- rownames(tabRDATID)
433 432  
434 433 #Outputting the Z-score file
435   - nfnzsc <- strsplit(alz,"[\\]") %>%
  434 + nfnzsc <- strsplit(alz,"[\\|/]") %>%
436 435 .[[1]] %>%
437 436 .[length(.)] %>%
438 437 gsub("\\D","",.) %>%
... ... @@ -648,7 +647,7 @@ THEFT &lt;- function(){
648 647 cbind(ALZWORDF,.)
649 648  
650 649 #Raw file is output
651   - nfnaex <- strsplit(alz,"[\\]") %>%
  650 + nfnaex <- strsplit(alz,"[\\|/]") %>%
652 651 .[[1]] %>%
653 652 .[length(.)] %>%
654 653 gsub("\\D","",.) %>%
... ... @@ -731,7 +730,7 @@ THEFT &lt;- function(){
731 730 ##Outputting non Z-score Average over genes
732 731 newoutput <-NuRDATN
733 732 colnames(newoutput) <- rownames(tabRDATID)
734   - nfnewout <- strsplit(alz,"[\\]") %>%
  733 + nfnewout <- strsplit(alz,"[\\|/]") %>%
735 734 .[[1]] %>%
736 735 .[length(.)] %>%
737 736 gsub("\\D","",.) %>%
... ... @@ -754,7 +753,7 @@ THEFT &lt;- function(){
754 753 colnames(scrawdat) <- rownames(tabRDATID)
755 754  
756 755 #Outputting the Z-score file
757   - nfnzsc <- strsplit(alz,"[\\]") %>%
  756 + nfnzsc <- strsplit(alz,"[\\|/]") %>%
758 757 .[[1]] %>%
759 758 .[length(.)] %>%
760 759 gsub("\\D","",.) %>%