Commit e225795f authored by Lena Hersemann's avatar Lena Hersemann

imputation information are now added to all final limma results (including *_diff_proteins.txt)

parent b6d3a968
......@@ -627,13 +627,13 @@ if (nrow(degs) == 0){
write_tsv(deAnnot, path = add_prefix("da_results.txt"))
if (nrow(degs) > 0) {
degs %>% write_tsv(add_prefix("diff_proteins.txt"))
deAnnot %>% filter(is_hit) %>% write_tsv(add_prefix("diff_proteins.txt"))
degs %>%
deAnnot %>% filter(is_hit) %>%
transmute(protein_ids, contrast = paste(condition_1, "vs", condition_2)) %>%
write_tsv(add_prefix("daps_by_contrast.txt"))
degs %>%
deAnnot %>% filter(is_hit) %>%
transmute(protein_ids, contrast = paste(condition_1, if_else(c1_overex, ">", "<"), condition_2)) %>%
write_tsv(add_prefix("daps_by_contrast_directed.txt"))
}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment