if (FALSE) {
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)
}
Run the code above in your browser using DataLab