collective/coldcallbot
17
0
Fork 0
Code

updated assessment code for new class

Browse Source 
- fix a few bugs related to make scripts work with no students have been fully
  missing
- other smaller code fixes, path updates, etc
This commit is contained in:
Benjamin Mako Hill 2024-10-07 20:54:49 -07:00
parent 499ed62bce
commit da93d3fd56
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
assessment_and_tracking/track_participation.R
View File

@ -1,4 +1,4 @@
setwd("~/online_communities/coldcallbot/data/") setwd("~/online_communities/coldcall_scripts-COM481-2024Q4/data/")
library(data.table) library(data.table)
@ -6,9 +6,11 @@ library(data.table)
## LOAD call_list TSV data ## LOAD call_list TSV data
################################################ ################################################
call.list <- do.call("rbind", lapply(list.files(".", pattern="^call_list-.*tsv$"), function (x) {read.delim(x, stringsAsFactors=FALSE)[,1:4]})) call.list <- do.call("rbind", lapply(list.files(".", pattern="^call_list-.*tsv$"), function (x) {read.delim(x, stringsAsFactors=FALSE)[,1:5]}))
colnames(call.list) <- gsub("_", ".", colnames(call.list)) colnames(call.list) <- gsub("_", ".", colnames(call.list))
colnames(call.list)[1] <- "unique.name"
colnames(call.list)[2] <- "preferred.name"
table(call.list$unique.name[call.list$answered]) table(call.list$unique.name[call.list$answered])
@ -29,7 +31,7 @@ absence.data.cols <- c("unique.name", "date.absent", "reported")
missing.in.class <- call.list.full[!call.list.full$answered, missing.in.class <- call.list.full[!call.list.full$answered,
c("unique.name", "timestamp")] c("unique.name", "timestamp")]
missing.in.class$date.absent <- as.Date(missing.in.class$timestamp) missing.in.class$date.absent <- as.Date(missing.in.class$timestamp)
missing.in.class$reported <- FALSE missing.in.class$reported <- rep(FALSE, nrow(missing.in.class))
missing.in.class <- missing.in.class[,absence.data.cols] missing.in.class <- missing.in.class[,absence.data.cols]
missing.in.class <- unique(missing.in.class) missing.in.class <- unique(missing.in.class)
@ -37,7 +39,7 @@ missing.in.class <- unique(missing.in.class)
## LOAD absence data TSV data ## LOAD absence data TSV data
################################################ ################################################
absence.google <- read.delim("absence_poll_data.tsv") absence.google <- read.delim("optout_poll_data.tsv")
colnames(absence.google) <- c("timestamp", "unique.name", "date.absent") colnames(absence.google) <- c("timestamp", "unique.name", "date.absent")
absence.google$date.absent <- as.Date(absence.google$date.absent, format="%m/%d/%Y") absence.google$date.absent <- as.Date(absence.google$date.absent, format="%m/%d/%Y")
absence.google$reported <- TRUE absence.google$reported <- TRUE