diff pre_process_protein_name_set.R @ 30:e6e456d3ac14 draft

Uploaded

--- 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")
 
 }