# Demo using simulated variables
sim_data <-
data.frame(Emails_sent_09_10 = sample(1:5, size = 10, replace = TRUE),
Unscheduled_calls_09_10 = sample(1:5, size = 10, replace = TRUE))
combine_signals(sim_data, hr = 9, signals = c("Emails_sent", "Unscheduled_calls"))
Run the code above in your browser using DataLab