report on the number of questions answered, not just asked

diff --git a/assessment_and_tracking/track_participation.R b/assessment_and_tracking/track_participation.R
index a3a94eb7662c2e58a66df44e6e726ce87a3055da..698041c4dab54a1dfcb24d946ef7c7eece441c35 100644 (file)
--- a/assessment_and_tracking/track_participation.R
+++ b/assessment_and_tracking/track_participation.R
@@ -11,7 +11,9 @@ call.list <- do.call("rbind", lapply(list.files(".", pattern="^call_list-.*tsv$"
 
 colnames(call.list) <- gsub("_", ".", colnames(call.list))
 
 
 colnames(call.list) <- gsub("_", ".", colnames(call.list))
 

-table(call.list$unique_name)
+table(call.list$unique_name[call.list$answered])
+
+exit()

 
 call.list$day <- as.Date(call.list$timestamp)
 
 
 call.list$day <- as.Date(call.list$timestamp)