collective/coldcallbot
17
0
Fork 0
Code

worked through the final preparation of grade

Browse Source
This commit is contained in:
Benjamin Mako Hill 2025-12-02 15:43:23 -08:00
parent c78b4601c6
commit a9caa20867
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
assessment_and_tracking/compute_final_case_grades.R
View File

@ -1,9 +1,9 @@
## load in the data ## load in the data
################################# #################################
myuw <- read.csv("../data/2024_autumn_COMMLD_570_A_joint_students.csv", stringsAsFactors=FALSE) myuw <- read.csv("data/2025_autumn_COMMLD_570_A_students.csv", stringsAsFactors=FALSE)
current.dir <- getwd() current.dir <- getwd()
source("../assessment_and_tracking/track_participation.R") source("assessment_and_tracking/track_participation.R")
setwd(current.dir) setwd(current.dir)
rownames(d) <- d$unique.name rownames(d) <- d$unique.name
@ -24,7 +24,7 @@ absence.threshold <- median(d$absences)
## median(d$num.calls) ## median(d$num.calls)
## questions.cutoff <- nrow(call.list) / nrow(d) ## TODO talk about this ## questions.cutoff <- nrow(call.list) / nrow(d) ## TODO talk about this
## this is the 95% percentile based on simulation in simulation.R ## this is the 95% percentile based on simulation in simulation.R
questions.cutoff <- 15 questions.cutoff <- 34
## show the distribution of assessments ## show the distribution of assessments
table(call.list$assessment) table(call.list$assessment)
@ -135,14 +135,14 @@ d[sort.list(d$part.4point, decreasing=TRUE),
## writing out data to CSV ## writing out data to CSV
d.print <- merge(d, myuw[,c("StudentNo", "FirstName", "LastName", "UWNetID")], d.print <- merge(d, myuw[,c("StudentNo", "FirstName", "LastName", "UWNetID")],
by.x="unique.name", by.y="StudentNo") by.x="unique.name", by.y="StudentNo")
write.csv(d.print, file="../data/final_participation_grades.csv") write.csv(d.print, file="data/final_participation_grades.csv")
library(rmarkdown) library(rmarkdown)
for (id in d$unique.name) { for (id in d$unique.name) {
render(input="student_report_template.Rmd", render(input="assessment_and_tracking/student_report_template.Rmd",
output_format="html_document", output_format="html_document",
output_file=paste("../data/case_grades/", output_file=paste("data/case_grades/",
d.print$unique.name[d.print$unique.name == id], d.print$unique.name[d.print$unique.name == id],
sep="")) sep=""))
} }