Commit 4b414516 authored by Simon Pintarelli's avatar Simon Pintarelli

add column total points to grades-out.csv

parent 191fce85
......@@ -145,9 +145,9 @@ colnames(scale_plot) <- c("s", "grade", "col")
scale_plot <- rbind(scale_plot, cbind(scale, col=rep("rounded", nrow(linscale))))
@
<<store grades, echo=FALSE>>=
<<store grades, echo=FALSE, warning=FALSE>>=
## export (legi, grade) to csv
write.csv(data.frame(Number=grades$legi, Grade=grades$grade),
write.csv(data.frame(Number=grades$legi, Grade=grades$grade, Points=grades$point),
fileEncoding='ISO-8859-1',
file="grades-out.csv",
row.names=FALSE,
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment