# NOT RUN {
#data with asterisk and multiple answer mcq(Q2 question)
data(GIFTrData)
mcqdata <- GIFTrData[which(GIFTrData$question_type == "mcq"),]
mcq(data = mcqdata, questions = 3,
answers = c(4:8), categories = 1,
question_names = 2, output = file.path(tempdir(), "mcq.txt"))
#No make_answer argument, question_name specified
#write file "mcq.txt"in tempdir()
#data with no atrisk and no multiple answer mcq
mcqdata_2 <- GIFTrData_2[which(GIFTrData_2$question_type == "mcq"),]
mcq(data = mcqdata_2, questions = 3,
answers = c(4:8), categories = 1,
question_names = 2, make_answer = TRUE,
output = file.path(tempdir(), "mcq_1.txt")) #Answer is in column 4
#write file "mcq_1.txt"in tempdir()
# }
Run the code above in your browser using DataCamp Workspace