Good night

Author: dushoff

Makefile

@@ -65,6 +65,8 @@ dropdir/%:
 ## Import TA marks (manual) and change empties to zeroes
 ## This means you should add MSAFs as NAs before processing
 ## Use named versions of marks.tsv (no revision control in Dropbox)
+## 2020 May 04 (Mon): Don't bother with versions in future; 
+## docs has history in the unlikely event we need it
 ## https://docs.google.com/spreadsheets/d/1nErh7vg1PfOS3CYmZu5tQIjT-_Hsyi77S17zh4ZzeRQ/edit#gid=728284690
 ## downcall dropdir/marks8.tsv  ##
 Ignore += marks.tsv
@@ -156,7 +158,7 @@ Sources += testnotes.txt
 ######################################################################
 
 ## avenueMerge
-## Still developing
+## Still developing; right now I post things one at a time
 ## Code that takes a whole spreadsheet to Avenue still in Tests/
 
 ## Put the final marking thing in a form that avenueMerge will understand
@@ -171,6 +173,9 @@ midterm%.grade.Rout: midterm%.merge.Rout finalscore.R
 final.grade.Rout: final.patch.Rout finalscore.R
 	$(run-R)
 
+course.grade.Rout: course.Rout courseGrade.R
+	$(run-R)
+
 ## Do the same for an assignment (COVID!)
 ## assign3.grade.Rout: assignscore.R
 .PRECIOUS: assign%.grade.Rout
@@ -191,6 +196,7 @@ Ignore += *.avenue.Rout.csv
 ## but then we'd have to worry about the logic set up for posting more than
 ## one score at once (which we don't use anyway)
 
+## course.grade.avenue.csv: avenueNA.pl
 ## final.grade.avenue.csv: avenueNA.pl
 ## midterm2.grade.avenue.csv: avenueNA.pl
 ## assign3.grade.avenue.csv: avenueNA.pl
@@ -203,6 +209,12 @@ Ignore += *.avenue.csv
 
 ######################################################################
 
+## Code pledges
+
+code.Rout: 
+
+######################################################################
+
 ## Polls
 
 ## Get PollEverywhere data:
@@ -272,19 +284,24 @@ course.Rout: gradeFuns.Rout tests.Rout pollScorePlus.Rout TAmarks.Rout course.R
 ## Mosaic
 
 ## Go to course through faculty center
+## https://epprd.mcmaster.ca/psp/prepprd/EMPLOYEE/SA/c/SA_LEARNING_MANAGEMENT.SS_FACULTY.GBL?pslnkid=MCM_WC_FCLT_CNTR
 ## You can download as EXCEL (upper right of roster display)
 ## and upload as CSV
 
 ## downcall dropdir/mosaic.xls ## Insanity! This is an html file that cannot be read by R AFAICT, even though it opens fine in Libre ##
 ## downcall dropdir/mosaic.csv
+## It would be better to change some of the code here and keep the
+## student numbers as strings
 
-## Check class number 
+## CHECK class number (needs to be cribbed from Mosaic and entered here)
 ## Check dropCandidates in Rout
-## mosaic_grade.Rout.csv: mosaic_grade.R
+
 mosaic_grade.Rout: dropdir/mosaic.csv course.Rout mosaic_grade.R
+## mosaic_grade.Rout.csv: mosaic_grade.R
+
 ## Upload this .csv to mosaic
 ## Faculty center, online grading tab
-## ~/Downloads/grade_guide.pdf
+## ~/Downloads/grade_guide.pdf ##
 ## There is no guidance about students with incomplete marks; let's see what happens
 
 ## Copy grades to dropdir for diffing:

course.R

@@ -3,7 +3,7 @@
 ## 1000 for no balance
 downgrade <- 0
 examRho <- 1.3 ## odds curve for final
-offset <- 0.5 ## 0 to round down
+offset <- 0.999 ## 0 to round down
 testwt <- c(25, 25, 40)
 asntot <- c(16, 12, 10)
 

courseGrade.R

@@ -0,0 +1,8 @@
+library(dplyr)
+
+## target parsing not implemented yet because transmute syntax
+scores <- (course
+	%>% transmute(idnum, courseFinal_score=courseGrade)
+)
+
+# rdsave(scores)

mosaic_grade.R

@@ -0,0 +1,35 @@
+library(dplyr)
+library(readr)
+
+Class <- 10646
+
+roster <- read_csv(input_files[[1]])
+names(roster) <- gsub(" ", "_", names(roster))
+
+summary(course)
+course <- (course
+	%>% mutate(idnum = gsub("#", "", idnum)
+		, courseGrade=courseGrade
+	)
+)
+
+summary(course)
+
+summary(roster)
+
+## This mutate seems bad; if we could read the csv as strings in the first place it would be better.
+## Check strings as factors if you do that
+roster <- (roster
+	%>% mutate(idnum=sprintf("%09d", as.numeric(ID))) 
+	%>% left_join(course)
+	%>% filter(final.test > 0)
+	%>% transmute(Class=Class, idnum, mark=courseGrade)
+) %>% write_csv(csvname, col_names=FALSE)
+
+summary(roster)
+
+print(dropCandidates <- roster %>% filter(is.na(mark)))
+
+(roster
+	%>% filter(!is.na(mark))
+) %>% write_csv(csvname, col_names=FALSE)