## the example creates files on the local system - thus not run
if (FALSE) {
data(QBANK1)
examdate="THURS Sep 20 2007"
version.exam(QBANK1, "exam1A" , exnumber="Exam 1", seqnum="1", examdate=examdate)
##################
examdate=date()
seqnum="1"
exnumber="Exam 1"
V = "exam1A"
outtex = paste(sep=".",V, "tex" )
outMAST = paste(sep="", V, "MAST" )
MASTtex = paste(sep=".", outMAST , "tex" )
outsolut = paste(sep="", V, "solutions.tex" )
Me = "Jonathan M. Lees"
course="GEOL 105"
examname=paste(sep=" ", exnumber, "Seq", seqnum)
K = length(QBANK1)
instructions=c(
paste(sep=" ", "There are",K," number of questions."),
"Answer all questions.","Use number 2 pencil",
"Mark each box clearly.")
version.exam(QBANK1, "exam1B" , exnumber="Exam 1", seqnum="B",
examdate=examdate, instructor=Me, course=course , instructions=instructions)
}
Run the code above in your browser using DataLab