## Not run:
# LF = list.files(path="/home/lees/Class/GEOL_105/TESTBANK/EXAM_1", pattern="txt", full.names=TRUE )
#
# kbank = vector(mode='list')
# ###### read in the question banks, each in one file
# for(i in 1:length(LF))
# {
# h = Get.testbank(LF[i])
# kbank[[i]] = Get.testbank(LF[i])
#
# }
# names(kbank) = LF
# Kbank = vector(mode='list')
#
# for(i in 1:length(kbank))
# {
#
# Kbank = c(Kbank, kbank[[i]])
#
# }
#
# ########## get 50 sample questions
# NEWQB = SELbank(Kbank, 50)
#
# ## End(Not run)
Run the code above in your browser using DataLab