Commit 5b7d86c3 authored by Lena Hersemann's avatar Lena Hersemann

fixed bug for identification types when NAs are missing from the dataset

parent d4a18fca
......@@ -541,10 +541,12 @@ if(exists("ident_types")) {
mutate_at(vars(ident_status), funs(replace(., is.na(.), "missing"))) %>%
count(protein_ids, condition, ident_status) %>%
spread(ident_status, n) %>%
mutate_if(is_integer, funs(replace(., is.na(.), 0))) %>%
mutate(ident_by_msms_match_missing=paste(ms_by_ms, matching, missing, sep="|")) %>%
select(protein_ids, condition, ident_by_msms_match_missing)
mutate_if(is_integer, funs(replace(., is.na(.), 0)))
if (any(colnames(identSummary) != "missing")) { identSummary %<>% mutate(missing = 0) }
identSummary %>% mutate(ident_by_msms_match_missing=paste(ms_by_ms, matching, missing, sep="|")) %>%
select(protein_ids, condition, ident_by_msms_match_missing)
write_tsv(identSummary, path=add_prefix("ident_types_summary.txt"))
# identSummary <- read_tsv("ident_types_summary.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