## the example creates files on the local system - thus not run
## Not run:
# 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)
#
# ## End(Not run)
Run the code above in your browser using DataLab