Mercurial > repos > bornea > saint_preprocessing

changeset 30:e6e456d3ac14 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author bornea
date Tue, 26 Apr 2016 16:16:56 -0400
parents bd71998aec8d
children 761e1ad2b130
files pre_process_protein_name_set.R
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/pre_process_protein_name_set.R	Tue Apr 26 15:40:35 2016 -0400
+++ b/pre_process_protein_name_set.R	Tue Apr 26 16:16:56 2016 -0400
@@ -88,7 +88,9 @@
   }
 	protein_intensities_tukeys = get_protein_values(peptides_txt_mapped_log2,intensity_columns)
   protein_intensities_tukeys[protein_intensities_tukeys == 1] <- 0
-  write.table(protein_intensities_tukeys, "./tukeys_output.txt", row.names = FALSE, col.names = TRUE, quote = FALSE, sep = "\t")	
+  # Eliminates all pure NA rows. 
+  protein_intensities_tukeys = protein_intensities_tukeys[rowSums(is.na(protein_intensities_tukeys)) != (ncol(protein_intensities_tukeys)-1),]
+  write.table(protein_intensities_tukeys, "./tukeys_output.txt", row.names = FALSE, col.names = TRUE, quote = FALSE, sep = "\t")
 
 }