### R code from vignette source 'Grader.Rnw' ################################################### ### code chunk number 1: Grader.Rnw:83-86 ################################################### g = rnorm(n=200, m=82, sd=10) g[g>100] = 100 g[g<1] = 1 ################################################### ### code chunk number 2: Grader.Rnw:94-96 ################################################### B = boxplot(g, plot=FALSE) divs = c(min(g), B$stats[1:4] + diff(B$stats)/2, max(g) ) ################################################### ### code chunk number 3: Grader.Rnw:104-108 ################################################### library(ProfessR) ## get(getOption("device"))(width = 12, height = 7) ## dev.new() D1 = do.grades(g, divs=divs, tit="GEOL 105 Exam 1") ################################################### ### code chunk number 4: Grader.Rnw:152-167 ################################################### data(E2grades) g = E2grades B = boxplot(g[g>1], plot=FALSE) divs = c(min(g), B$stats[1:4] + diff(B$stats)/2, max(g) ) ## get(getOption("device"))(width = 12, height = 7) G1 = do.grades(g, divs=divs , tit="GEOL 105 Exam 1") J = jist(G1$hist, G1$grades, G1$lett)