I am creating a moodle question with R/exam package. When I compose the XML file from R I got the error message :
Error in split.default(questionlist, gr) :
first argument must be a vector
I don't see why this error because the first argument is a vector. Can anyone help me please?
The sweave codes are given below
<<echo=FALSE, results=hide>>=
a<-sample(c("Un laboratoire","Un fabricant","Une firme de production"),1)
b<-sample(c("d'une méthode contraceptive", "d'un contraceptif","d'un produit de contraception"),1)
nf<-sample(c(16,17,18,19,20,21,23,22,24,25),1)
age<-sample(c(25,30,35),1)
mu<-round(rnorm(1,mean=14.5,sd=sqrt(5.0625)),digits=1)
var.val<-round(rnorm(1,mean=5.0625,sd=sqrt(1.4)),digits=4)
avera<-round(rnorm(1,mean=13.03,sd=sqrt(5.0625)),digits=2)
var.echant<-round(rnorm(1,mean=6.32,sd=sqrt(1.4)),digits=2)
## QUESTION/SOLUTION
questions <- rep(list(""), 2)
questions[[1]] <- c("La prise du contraceptif X a une influence sur la concentration en LH et sur l'ovulation", "Il n'ya pas d'influence de la prise du contraceptif X sur la concentration en LH et sur l'ovulation")
questions[[2]]<-""
@
\begin{question}
SOME TEXT here
a) Quelle est l'hpothèse de recherche? ##ANSWER1##
b) La taille de l'échantillon est ##ANSWER2##
\end{question}
%% META-INFORMATION
%% \extype{cloze}
%% \exsolution{10|\Sexpr{nf}}
%% \exclozetype{schoice|num}
%% \extol{0.0001}
%% \exshuffle{TRUE}