don't count missing questions as asked

diff --git a/data/track_participation.R b/data/track_participation.R
index f616d213a4bd451986c1d6e249e244a2a14d448e..8bce2e5def22837079349740ca86b27c93064666 100644 (file)
--- a/data/track_participation.R
+++ b/data/track_participation.R
@@ -9,6 +9,10 @@ colnames(call.list) <- gsub("_", ".", colnames(call.list))
 
 call.list$day <- as.Date(call.list$timestamp)
 
 
 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")
 
 call.counts <- data.frame(table(call.list$discord.name))
 colnames(call.counts) <- c("discord.name", "num.calls")