Mercurial > repos > bornea > saint_preprocessing
diff pre_process_protein_name_set.R @ 30:e6e456d3ac14 draft
Uploaded
author | bornea |
---|---|
date | Tue, 26 Apr 2016 16:16:56 -0400 |
parents | dbd1af88f060 |
children | 63008bdf576e |
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") }