我创建了一个结合 mchoice 和 num 的完形填空题。但是我不能在 Moodle 中导入问题,因为它说 错误导入问题无效的嵌入式答案(完形填空)问题(其中一个答案的分数应该是 100%,所以这个问题有可能获得满分。)。 如果我把它变成一个单一的 mchoice 问题(删除 num 问题)或者我把它变成一个单一的 num chestion(删除 mchoice 部分),它就可以工作。我在 r-exams.org 上找不到这样的例子,这就是我转向这里的原因。
这是我的代码:
```{r data generation, echo = FALSE, results = "hide"}
library(exams)
Fragen=data.frame(
Fragen=c(
"Vergleich Schlachtgewicht (g) männlicher und weiblicher Hühner (Hähne/Hennen) der gleichen Linie.",
"Untersuchung der Anzahl Insektenarten, welche auf unterschiedlichen Feldern vorkommen (Magerwiese, Klee, je 10 Felder).",
"Untersuchung Sulfatgehalt (mg) bei Wasserproben aus der Limmat. Die Proben wurden an zwei unterschiedlichen Stellen entnommen (Limmatquai, Werdinsel, während 14 Tagen)",
"Untersuchung Kürbisgewicht (kg) bei Düngung mit Gülle oder Kompost"),
Stichprobe1=c("Hahn","Magerwiese","Limmatquai","Guelle"),
Stichprobe2=c("Henne","Klee","Werdinsel","Kompost"),
mean1=c(2500,50,250,10),
mean2=c(2000,20,200,12),
sd1=c(300,20,50,5),
sd2=c(300,10,40,5),
n=c(20,10,14,16)
)
n=sample(4,1)
## DATA
x1=abs(round(rnorm(Fragen$n[n],Fragen$mean1[n],Fragen$sd1[n])))
x2=abs(round(rnorm(Fragen$n[n],Fragen$mean2[n],Fragen$sd2[n])))
datadf=data.frame(x1,x2)
names(datadf)=c(as.character(Fragen$Stichprobe1[n]),as.character(Fragen$Stichprobe2[n]))
write.csv(datadf, "stichproben.csv", row.names = FALSE, quote = FALSE)
alpha=0.05
ps1=shapiro.test(x1)$p.value
ps2=shapiro.test(x2)$p.value
pf=var.test(x1,x2)$p.value
if (ps1 > alpha & ps2 > alpha) {
if (pf > alpha) {
p=t.test(x1,x2,var.equal = TRUE)$p.value
}else{
p=t.test(x1,x2,var.equal = FALSE)$p.value
}
}else{
p=wilcox.test(x1,x2)$p.value
}
p
msol=c(ps1>alpha & ps2>alpha, pf>alpha,TRUE)
msol
```
Question
========
`r Fragen$Fragen[n]`
Die Daten sind im File [stichproben.csv](stichproben.csv).
Answerlist
----------
* Die Stichproben sind normalverteilt
* Die Varianzen sind homogen
* Die Stichproben sind unabhängig
* Führe den am besten geeigneten Test durch und kopiere den p-Wert ins Feld:
Solution
========
```{r solutionlist, echo = FALSE, results = "asis"}
```
Meta-information
================
exname: t-Test unabhaengig
extype: cloze
exsolution: `r mchoice2string(msol)`|`r format(p)`
exclozetype: mchoice|num
extol: `r format(0.01*p)`