如何在num_to_schoice中插入文本？
如何在num_to_schoice中插入文本？
提问于 2021-04-21 11:18:59
我正在构建r-exams包中的deriv2.Rnw问题，其中包括随机化学校问题答案选项的num_to_schoice：
sc <- NULL
while(is.null(sc)) {
## parameters
a <- sample(2:9, 1)
b <- sample(seq(2, 4, 0.1), 1)
c <- sample(seq(0.6, 0.9, 0.01), 1)
## solution
res <- exp(b * c) * (a * c^(a-1) + b * c^a)
## schoice
err <- c(a * c^(a-1) * exp(b * c), a * c^(a-1) * exp(b * c) + c^a * exp(b * c))
rg <- if(res < 4) c(0.5, 5.5) else res * c(0.5, 1.5)
sc <- num_to_schoice(res, wrong = err, range = rg, delta = 0.1)我的意图是在四个或五个答案选项中输入文本，这样就可以获得与附加图像中的结果相似的结果。
回答 1
Stack Overflow用户
回答已采纳
发布于 2021-04-22 08:24:34
您只需将它们插入到设置选项的answerlist()中：
answerlist(sc$questions,
c("because Lorem ipsum dolor sit amet.",
"because fusce et interdum neque.",
"because suspendisse a bibendum turpis.",
"because donec sed imperdiet justo.",
"because duis efficitur mattis."),
sep = ", "
)(请注意，在Rmd练习中，您还需要添加markup = "markdown"。)
然而，这在实践中的主要问题是sc$questions包含随机答案，所有答案都是随机打乱的。因此，您必须将sc$questions与您作为wrong参数提供的典型错误进行匹配。此外，您可能没有解释随机答案选项。因此，最好不要使用num_to_schoice()，而是“手动”编写答案列表。对于自动混洗，您可以在练习中将exshuffle设置为TRUE。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/67188893
复制相关文章
相似问题
腾讯云开发者
