From ed5d938316d4c556a336747a4a81b6295d618fa4 Mon Sep 17 00:00:00 2001 From: JulioV Date: Thu, 12 Mar 2020 11:18:32 -0400 Subject: [PATCH] Replace NA with 0 in most frequent contact call metric --- src/features/call_metrics.R | 3 +++ 1 file changed, 3 insertions(+) diff --git a/src/features/call_metrics.R b/src/features/call_metrics.R index 3b3899ea..1fa04ffa 100644 --- a/src/features/call_metrics.R +++ b/src/features/call_metrics.R @@ -60,4 +60,7 @@ for(metric in metrics){ features <- merge(features, feature, by="local_date", all = TRUE) } +if("countmostfrequentcontact" %in% metrics) + features <- features %>% mutate_at(vars(contains('countmostfrequentcontact')), funs(ifelse(is.na(.), 0, .))) + write.csv(features, snakemake@output[[1]], row.names = FALSE)