Efrain Gonzalez / Cleaning and Fixing Data with R

Download as
Browse Code ยป

Commit 24ce5ef2bd876e1b80a99230eb9de4b08cb1f1f2

Authored by Efrain Gonzalez
1 parent 501231d3eb
Exists in master

Update

Showing 1 changed file with 4 additions and 4 deletions   Show diff stats
1   -##Posted 6/15/2017
  1 +##Posted 06/25/2018
2 2 options(digits = 11)
3 3  
4 4 #Libraries required to run the code
... ... @@ -320,7 +320,7 @@ Fullalzdwr <- ALZDAT %>%
320 320  
321 321  
322 322 #Raw file is output
323   -nfnaex <- strsplit(alz,"[\\]") %>%
  323 +nfnaex <- strsplit(alz,"[\\|/]") %>%
324 324 .[[1]] %>%
325 325 .[length(.)] %>%
326 326 gsub("\\D","",.) %>%
... ... @@ -403,7 +403,7 @@ for(j in 1:length(tabRDATID)){
403 403 ##Outputting non Z-score Average over genes
404 404 newoutput <-NuRDATN
405 405 colnames(newoutput) <- rownames(tabRDATID)
406   - nfnewout <- strsplit(alz,"[\\]") %>%
  406 + nfnewout <- strsplit(alz,"[\\|/]") %>%
407 407 .[[1]] %>%
408 408 .[length(.)] %>%
409 409 gsub("\\D","",.) %>%
... ... @@ -426,7 +426,7 @@ for(j in 1:length(tabRDATID)){
426 426 colnames(scrawdat) <- rownames(tabRDATID)
427 427  
428 428 #Outputting the Z-score file
429   - nfnzsc <- strsplit(alz,"[\\]") %>%
  429 + nfnzsc <- strsplit(alz,"[\\|/]") %>%
430 430 .[[1]] %>%
431 431 .[length(.)] %>%
432 432 gsub("\\D","",.) %>%