#################################
case.sessions <- 15
-myuw <- read.csv("../myuw-COM_482_A_autumn_2020_students.csv", stringsAsFactors=FALSE)
+myuw <- read.csv("myuw-COM_482_A_autumn_2020_students.csv", stringsAsFactors=FALSE)
## class-level variables
question.grades <- c("GOOD"=100, "FAIR"=100-(50/3.3), "BAD"=100-(50/(3.3)*2))
missed.question.penalty <- (50/3.3) * 0.2 ## 1/5 of a full point on the GPA scale
-setwd("../")
-source("track_participation.R")
+source("../assessment_and_tracking/track_participation.R")
setwd("case_grades")
rownames(d) <- d$discord.name
library(rmarkdown)
for (x.discord.name in d$discord.name) {
- render(input="student_report_template.Rmd",
+ render(input="../../assessment_and_tracking/student_report_template.Rmd",
output_format="html_document",
- output_file=paste("student_reports/",
+ output_file=paste("../data/case_grades/student_reports/",
d.print$UWNetID[d.print$discord.name == x.discord.name],
sep=""))
}