From a9caa208670aeace31fcdf16610c893ad03d4779 Mon Sep 17 00:00:00 2001 From: Benjamin Mako Hill Date: Tue, 2 Dec 2025 15:43:23 -0800 Subject: [PATCH] worked through the final preparation of grade --- assessment_and_tracking/compute_final_case_grades.R | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/assessment_and_tracking/compute_final_case_grades.R b/assessment_and_tracking/compute_final_case_grades.R index e355052..cc21e8d 100644 --- a/assessment_and_tracking/compute_final_case_grades.R +++ b/assessment_and_tracking/compute_final_case_grades.R @@ -1,9 +1,9 @@ ## 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() -source("../assessment_and_tracking/track_participation.R") +source("assessment_and_tracking/track_participation.R") setwd(current.dir) rownames(d) <- d$unique.name @@ -24,7 +24,7 @@ absence.threshold <- median(d$absences) ## median(d$num.calls) ## questions.cutoff <- nrow(call.list) / nrow(d) ## TODO talk about this ## this is the 95% percentile based on simulation in simulation.R -questions.cutoff <- 15 +questions.cutoff <- 34 ## show the distribution of assessments table(call.list$assessment) @@ -135,14 +135,14 @@ d[sort.list(d$part.4point, decreasing=TRUE), ## writing out data to CSV d.print <- merge(d, myuw[,c("StudentNo", "FirstName", "LastName", "UWNetID")], 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) 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_file=paste("../data/case_grades/", + output_file=paste("data/case_grades/", d.print$unique.name[d.print$unique.name == id], sep="")) }