call.list$day <- as.Date(call.list$timestamp)
+## drop calls where the person wasn't present
+call.list[!call.list$answered,]
+call.list <- call.list[call.list$answered,]
+
call.counts <- data.frame(table(call.list$discord.name))
colnames(call.counts) <- c("discord.name", "num.calls")