junos
/
rapids
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fix return error in call metrics script

replace/6391e23b7f0b00a773eaca383e74bf4fb2192517
JulioV 2019-11-12 15:54:12 -05:00
parent 6cf39ad9c4
commit 209a9232a3
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/features/call_metrics.R
View File

@ -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)), "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)), "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))) "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) calls <- read.csv(snakemake@input[[1]], stringsAsFactors = FALSE)