add column total points to grades-out.csv

statistics.Rnw

@@ -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,