Nothing
### 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)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.