From 9cbc67c8ec8b5f9cf95132263336b49b51f6133c Mon Sep 17 00:00:00 2001
From: Meng Li <34143965+Meng6@users.noreply.github.com>
Date: Sun, 3 Oct 2021 16:22:20 -0400
Subject: [PATCH] Fill NA with 0 for the selected calls features

---
 src/features/phone_calls/rapids/main.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/features/phone_calls/rapids/main.R b/src/features/phone_calls/rapids/main.R
index a10dcd7b..d793f706 100644
--- a/src/features/phone_calls/rapids/main.R
+++ b/src/features/phone_calls/rapids/main.R
@@ -88,6 +88,6 @@ rapids_features <- function(sensor_data_files, time_segment, provider){
         features <- call_features_of_type(calls_of_type, features_type, call_type, time_segment, requested_features)
         call_features <- merge(call_features, features, all=TRUE)
     }
-    call_features <- call_features %>% mutate_at(vars(contains("countmostfrequentcontact") | contains("distinctcontacts") | contains("count")), list( ~ replace_na(., 0)))
+    call_features <- call_features %>% mutate_at(vars(contains("countmostfrequentcontact") | contains("distinctcontacts") | contains("count") | contains("sumduration") | contains("minduration") | contains("maxduration") | contains("meanduration") | contains("modeduration")), list( ~ replace_na(., 0)))
     return(call_features)
 }
\ No newline at end of file