Replace NA with 0 in most frequent contact call metric
parent
9069cffa0e
commit
ed5d938316
|
@ -60,4 +60,7 @@ for(metric in metrics){
|
||||||
features <- merge(features, feature, by="local_date", all = TRUE)
|
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)
|
write.csv(features, snakemake@output[[1]], row.names = FALSE)
|
||||||
|
|
Loading…
Reference in New Issue