Nothing
### R code from vignette source 'ExamMaker.Rnw'
###################################################
### code chunk number 1: ExamMaker.Rnw:132-136
###################################################
library("ProfessR")
QB1 = Get.testbank('climate_change_abbott.txt')
QB2 = Get.testbank('tsunami_abbot_web.txt')
###################################################
### code chunk number 2: ExamMaker.Rnw:141-151
###################################################
L1 = length(QB1)
L2 = length(QB2)
isel1 = sample(1:L1)
QBfinal = list()
for(i in 1:12) { QBfinal[[i]] = QB1[[isel1[i]]] }
isel2 = sample(1:L2)
for(i in 1:9) { QBfinal[[i+12]] = QB2[[isel2[i]]] }
###################################################
### code chunk number 3: ExamMaker.Rnw:156-157
###################################################
QA1 = ran.exam(QBfinal)
###################################################
### code chunk number 4: ExamMaker.Rnw:163-169
###################################################
examdate="TUES OCT 30 2007"
version.exam(QBfinal, "exam2A" , exnumber="Exam 2", seqnum="1", examdate=examdate)
version.exam(QBfinal, "exam2B" , exnumber="Exam 2", seqnum="2", examdate=examdate)
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.