Commit 2d05c6c0 authored by Lena Hersemann's avatar Lena Hersemann

revised code to add imputation information

parent e225795f
......@@ -498,8 +498,7 @@ if (file.exists(ident_info)) {
colnames(imp)[3] <- "condition"
imp %<>% group_by(protein_ids, condition) %>%
count(is_imputed) %>%
select(-n)
summarize(is_imputed = any(is_imputed == TRUE))
deAnnot %<>%
left_join(imp %>% rename(c1_imp = is_imputed), by = c("protein_ids", "condition_1" = "condition")) %>%
......
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