テンプレートを使用してfourfold.Rmd
、生徒が記入するテーブルを使用してclozeタイプの演習を作成しました。これは私の演習です:
```{r data generation, echo = FALSE, results = "hide"}
rm(list=ls())
p_load("tidyverse")
categs<-LETTERS[1:3]
ncat<-length(categs)
varname<-"Tr"
categ_ref<-sample(1:ncat,1)
if(categ_ref==1){
sol<-c(0,1,0,
0,0,1)
}else if(categ_ref==2){
sol<-c(1,0,0,
0,0,1)
}else if(categ_ref==3){
sol<-c(1,0,0,
0,1,0)
}
questions<-rep("",length(sol))
type<-rep("num",length(sol))
```
Question
========
Considere la variable tratamiento ($`r varname `$) con posibles valores $`r paste0(categs,collapse = ",")`$. Sean $I_{`r categs[1]`},I_{`r categs[2]`}$ e $I_{`r categs[3]`}$ variables indicadoras de los respectivos tratamientos. Llene la tabla para establecer un sistema de codificación para la variable tratamiento, en donde la categoría de referencia es el tratamiento $`r categs[categ_ref]`$
| $`r varname `$| $I_{`r categs[-categ_ref][1]`}$|$I_{`r categs[-categ_ref][2]`}$ |
|:-------------:|:-----------------:|:-----------------:|
|$A$ | \#\#ANSWER1\#\# |\#\#ANSWER4\#\# |
|$B$ | \#\#ANSWER2\#\# | \#\#ANSWER5\#\# |
|$C$ | \#\#ANSWER3\#\# | \#\#ANSWER6\#\# |
```{r questionlist, echo = FALSE, results = "asis"}
answerlist(questions, markup = "markdown")
```
Solution
========
| $`r varname `$| $I_{`r categs[-categ_ref][1]`}$|$I_{`r categs[-categ_ref][2]`}$|
|:-------------:|:-----------------:|:-----------------:|
|$A$ | `r sol[1]` |`r sol[4]` |
|$B$ | `r sol[2]` | `r sol[5]` |
|$C$ | `r sol[3]` | `r sol[6]` |
Meta-information
================
extype: cloze
exsolution: `r paste(sol, collapse = "|")`
exclozetype: `r paste(type, collapse = "|")`
exname: catreg
extol: 0.05
exextra[numwidth,logical]: TRUE
exams2html
またはexams2moodle
を使用してレンダリングすると、次の警告が表示されます。
Warning in split.default(exm[[j]]$questionlist, g) : data length is not a multiple of split variable
なぜこれが現れるのか理解できません。私はこの演習の同様のバージョンを持っていますが、警告は表示されません。
回答リストコードチャンクの後、ソリューションセクションの開始前に空白行を含める必要があります。そうしないと、回答リストの長さが正しく検出されません。
この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。
侵害の場合は、連絡してください[email protected]
コメントを追加