diff --git a/src/features/call/call_base.R b/src/features/call/call_base.R
index 6e76e40c..48626a53 100644
--- a/src/features/call/call_base.R
+++ b/src/features/call/call_base.R
@@ -23,7 +23,7 @@ base_call_features <- function(call, call_type, day_segment, requested_features)
     features_to_compute  <- intersect(base_features_names, requested_features)
 
     # Filter rows that belong to the calls type and day segment of interest
-    calls <- calls %>% filter(call_type == ifelse(type == "incoming", "1", ifelse(type == "outgoing", "2", "3"))) %>% 
+    calls <- calls %>% filter(call_type == ifelse(call_type == "incoming", "1", ifelse(call_type == "outgoing", "2", "3"))) %>% 
         filter_by_day_segment(day_segment)
     print(calls)
     # If there are not features or data to work with, return an empty df with appropiate columns names