2

我想知道是否可以在 Rnw 文件练习中发表评论，以便 R 和 LaTeX 可以完全忽略某些内容。这对我进行一些灵活性建设练习很有用。

特别是，我想做一个有五个选项的多项选择题，其中给出两个正确的陈述和两个错误的陈述，并在一个正确的陈述和两个错误的陈述之间随机选择另一个陈述。尝试在http://www.r-exams.org/templates/boxplots/中实现这一点对我来说非常困难，因为所有这些语句都涉及 LaTeX 编码，所以我在将它插入 R 块时遇到问题。所以我尝试了一些不同的东西，但我收到一个错误，说排除的长度和问题列表的长度不匹配。也许，有一些方法可以使评论工作。

<<echo=FALSE, results=hide>>=

scelta=sample(c("%'","%'",""),size=3, replace=FALSE)
if (scelta[1]=="%'") soluz=c(1,1,rep(0,3)) else soluz=c(1,1,1,0,0)

@

\begin{question}

Say which statements are true. 

\begin{answerlist}

 \item first true statement
\item second true statement
\Sexpr{scelta[1]} \item third true statement 

\item first wrong statment
\item second wrong statment 
\Sexpr{scelta[2]} \item statment
\Sexpr{scelta[3]} \item statement

\end{answerlist}
\end{question}


\begin{solution}

<<echo=FALSE, results=tex>>=
answerlist(ifelse(soluz, "Vero", "Falso"))
@

\end{solution}


\exname{name_exercise}
\extype{mchoice}
\exsolution{\Sexpr{mchoice2string(soluz)}}
\exshuffle{5}

所以，可能我有困难，因为我对 Sweave 不够熟悉，但我的问题也许可以通过 R/exams 以多种方式解决。任何帮助将不胜感激。

4

2 回答 2

1

我刚刚找到了一种让它工作的方法。基本上，我了解到我可以用四倍反斜杠逃脱。所以，在这一点上，我也可以像箱线图示例中那样做。任何评论或任何建议仍将受到欢迎。

<<echo=FALSE, results=hide>>=

scelta=sample(c("%","%","\\\\item"),size=3, replace=FALSE)
if (scelta[1]=="%") soluz=c(1,1,rep(0,3)) else soluz=c(1,1,1,0,0)

@

\begin{question}

Say which statements are true. 

\begin{answerlist}

 \item first true statement
\item second true statement
\Sexpr{scelta[1]} third true statement 

\item first wrong statment
\item second wrong statment 
\Sexpr{scelta[2]} third wrong statment
\Sexpr{scelta[3]} fourth wrong statement

\end{answerlist}
\end{question}


\begin{solution}

<<echo=FALSE, results=tex>>=
answerlist(ifelse(soluz, "Vero", "Falso"))
@

\end{solution}


\exname{name_exercise}
\extype{mchoice}
\exsolution{\Sexpr{mchoice2string(soluz)}}
\exshuffle{5}
于 2020-04-20T11:12:37.543 回答
1

我不建议通过插入注释来做到这一点，因为 (a) 代码（至少在我看来）不是那么清晰，并且 (b) 您仅限于某些采样模式。相反，我宁愿在 R 代码中做这样的事情：

ans <- c(
  "This is the first statement and correct.",
  "This is the second statement and also correct.",
  "This is the third and last correct statement.",
  "This is the fourth statement and it is false.",
  "This is the fifth statement, the second false one.",
  "This is the sixth statement, false again.",
  "This is the seventh statement, it is false and the last one."
)
sol <- rep(c(TRUE, FALSE), c(3, 4))
i <- sample(1:7, 5)
ans <- ans[i]
sol <- sol[i]

这设置了所有答案和所有解决方案以及样本，没有任何限制，七个答案中的五个以及相应的解决方案。然后，您可以使用answerlist(ans)etc. 将答案列表包含在问题中。

i然后通过替换计算方式很容易切换到任何其他形式的采样。例如，您可以这样做：

i <- c(sample(1:3, 2), sample(4:7, 2)) ## two true, two false
i <- sample(setdiff(1:7, i), 1)        ## one additional
i <- sample(i)                         ## permute

由于最后一行，也不需要设置exshuffle标签。

于 2020-04-21T09:29:46.007 回答