78ac188f04
This still needs to be check over but this is new code to build the final grades. Current threshold for minimum questions comes from 1000 simulated classes (simulation.R).
23 lines
590 B
Plaintext
23 lines
590 B
Plaintext
**Student Name:** `r paste(d.print[d.print$unique.name == id, c("LastName", "FirstName")])` (`r id`)
|
|
|
|
**Participation grade:** `r d.print$part.4point[d.print$unique.name == id]`
|
|
|
|
**Questions asked:** `r d.print[d$unique.name == id, "num.calls"]`
|
|
|
|
**Days Absent:** `r d.print[d.print$unique.name == id, "absences"]` / `r length(unique(as.Date(unique(call.list$timestamp))))`
|
|
|
|
**Missing in class days:** `r d.print[d$unique.name == id, "missing.in.class.days"]` (base grade lowered by 0.2 per day)
|
|
|
|
**List of questions:**
|
|
|
|
```{r echo=FALSE}
|
|
call.list[call.list$unique.name == id,]
|
|
```
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|