From 209a9232a3839c1601378277c1036fe1e68f2a38 Mon Sep 17 00:00:00 2001 From: JulioV Date: Tue, 12 Nov 2019 15:54:12 -0500 Subject: [PATCH] Fix return error in call metrics script --- src/features/call_metrics.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/features/call_metrics.R b/src/features/call_metrics.R index 3b0bb81b..3b3899ea 100644 --- a/src/features/call_metrics.R +++ b/src/features/call_metrics.R @@ -43,8 +43,8 @@ compute_call_feature <- function(calls, metric, day_segment){ "entropyduration" = calls %>% summarise(!!paste("call", type, day_segment, metric, sep = "_") := entropy.MillerMadow(call_duration)), "timefirstcall" = calls %>% summarise(!!paste("call", type, day_segment, metric, sep = "_") := first(local_hour) + (first(local_minute)/60)), "timelastcall" = calls %>% summarise(!!paste("call", type, day_segment, metric, sep = "_") := last(local_hour) + (last(local_minute)/60))) + return(feature) } - return(feature) } calls <- read.csv(snakemake@input[[1]], stringsAsFactors = FALSE)