【发布时间】:2020-12-03 21:55:26
【问题描述】:
exams2nops 考试是否可以有超过 4 个答案选项?我尝试设置选项nchoice = 6,但没有产生任何效果。我在通讯员*.rmd练习中有6个答案选项。
一个例子:
exams2nops(questions, n = 1, nsamp = 1, encoding = "UTF-8", blank = 0, nchoice = 6, duplex = T, reglength = 5L, points = 4, replacement = T,schoice = list(eval = ee))
还有练习*.rmd:
```{r}
df <- readRDS(file = "some.rds")
variable <- names(df[,4:7]) %>% sample(1)
measCT<- ifelse(variable==names(df)[4],"Mean",
ifelse(variable==names(df)[5],"Mean",
ifelse(variable==names(df)[6],"Median",
ifelse(variable==names(df)[7],"Median",NaN))))
measuresTC <- c("Mode", "Percentile 25", "Percentile 75", "Median", "Mean", "Geometric mean")
options_answers <- paste0(c(measCT,measuresTC[!measuresTC %in% measCT]))
solutions <- c(T,F,F,F,F,F)
```
Question
========
`r paste0("Some question about the ", variable)`
```{r questionlist, echo = FALSE, results = "asis"}
exams::answerlist(unlist(options_answers), markup = "markdown")
```
Meta-information
================
exname: 1_1
extype: schoice
exsolution: `r paste(solutions, collapse = "|")`
exshuffle: 4
生成的 pdf 总是呈现四个选项...
【问题讨论】: