vignettes/SAQExample.R

In RGIFT: Create Quizzes in GIFT Format

sink(file="SAQExample.txt", type="output")

GIFTcomment("Examples of Short Answer Questions")

GIFTcategory("SAQuestions")

#Question 1
GIFTSA("The mean of 1, 2, and 3 is", c("Two", "2"),
  wright = c("100", "100"))

#Question 2
GIFTSA("Compute the mean of 1, 2 and 3",
   c("mean(c(1,2,3))", "sum(c(1,2,3))/3", "sum(c(1,2,3))/length(c(1,2,3))", "(1+2+3)/3"), 
   wright=c("100", "75", "75", "50"))

sink()