сюжет появляется в html экзамене, но не в pdf версии - PullRequest
Новая
       121

сюжет появляется в html экзамене, но не в pdf версии

0 голосов
/ 20 ноября 2018

У меня проблема со следующим Rmd для использования с пакетом exams R.это работает для HTML, но не для PDF, и я не могу понять, почему.Я получаю сюжет с 2 панелями в html, но он просто отсутствует в pdf.спасибо! 

```{r data generation, echo = FALSE, results = "hide"}
## DATA GENERATION
constr = sample(c("std","centered"),size=1)


n <- sample(35:65,1)

mx <- runif(1, 40, 60)
my <- runif(1, 200, 280)
sx <- runif(1, 9, 12)
sy <- runif(1, 44, 50)
a = runif(1,2,10)
b = sample(c(-3,1.2,3),size = 1)
e = rnorm(n)

r <- round(runif(1, 0.5, 0.9), 2)
x <- rnorm(n, mx, sd = sx)
y <- (r * x/sx + rnorm(n, my/sy - r * mx/sx, sqrt(1 - r^2))) * sy
mod1 = lm(y~x)
x1 = 0
y1 = 0

if (constr == "centered") {
   x1 = x - mx
   y1 = y - my
} else if (constr == "std") {
   x1 = (x - mx) / sx
   y1 = (y - my) / sy
}
mod2 = lm(y1~x1-1)


## QUESTION/ANSWER GENERATION
nq = 2
questions <- rep(list(""), nq)
solutions <- rep(list(""), nq)
explanations <- rep(list(""), nq)
type <- rep(list("string"),nq)

questions[[1]] = "What was the treatment we applied to the data? Or answer should either be `centered` or `standardized`. "
if (constr=="centered") {
    solutions[[1]] <- "centered"
    explanations[[1]] <- "We substracted the mean of each variable"
    questions[[2]] = "Give the value of the OLS slope coefficient in the right panel rounded to 3 digits"
    solutions[[2]] = round(coef(summary(mod1))[2],3)
    explanations[[2]] = "in a centered regression without an intercept, the slope coefficient is identical to the slope of the uncentered data (regression run with intercept)"
} else if (constr == "std") {
    solutions[[1]] <- "standardized"
    explanations[[1]] <- "You can see that both variables are centered on zero and have a standard deviation of around one."
    questions[[2]] = "Give the value of correlation coefficient $r$ between $x$ and $y$ in the left panel  rounded to 3 digits"
    solutions[[2]] = round(coef(summary(mod2))[1],3)
    explanations[[2]] = "in a standardized regression without an intercept, the slope coefficient is identical to correlation coefficient"
}
type[[2]] <- "num"
```

Question
========

We have a dataset with `r n` observations on $x$ and $y$. We apply some treatment to the data and transform it to $y1$ and $x1$. The left panel below is the data before, the right panel is the data after treatment:

```{r baplot,echo=FALSE,fig.align='center',fig.width=8}
par(mfrow=c(1,2))
plot(y~x,main="before")
plot(y1~x1,main="after")
if (constr=="centered"){
    abline(mod2)
}
```

and you are given the OLS estimates of a regression `r ifelse(constr=="centered","of y on x with","of y1 on x1 without")` an intercept for the data in the `r ifelse(constr=="centered","left","right")` panel:

```{r,echo=FALSE}
if (constr=="centered"){
    coef(mod1)
} else {
    coef(mod2)
}
```

```{r questionlist, echo = FALSE, results = "asis"}
answerlist(unlist(questions), markup = "markdown")
```

Solution
========

```{r solutionlist, echo = FALSE, results = "asis"}
answerlist(unlist(solutions),paste(unlist(explanations), ".", sep = ""), markup = "markdown")
```

Meta-information
================
extype: cloze
exsolution: `r paste(solutions, collapse = "|")`
exclozetype: `r paste(type, collapse = "|")`
exname: regconstrained
extol: 0.05

1 Ответ

0 голосов
/ 24 ноября 2018

TL; DR Пропустить fig.align='center'.

Фон : без fig.align, выполнение knitr::knit() в упражнении .Rmd дает простой вывод Markdown: 

![plot of chunk baplot](figure/baplot-1.png)

Однако при включении knitr::knit() возвращает HTML: 

<img src="figure/baplot-1.png" title="plot of chunk baplot" alt="plot of chunk baplot" style="display: block; margin: auto;" />

Это дает желаемый эффект, когда pandoc преобразует Markdown в HTML, потому что он просто сохраняетHTML.Но когда pandoc конвертируется в PDF через LaTeX, он не знает, как обрабатывать HTML в Markdown.

Таким образом, очень модульный дизайн exams здесь не работает, потому что такие детали форматирования не могут быть представленыв стандартной уценке.Есть диалекты Markdown, которые имеют такие расширения, но они поддерживаются не всеми процессорами Markdown.Вот почему типичная рекомендация состоит в том, чтобы Markdown должен быть смешан с желаемой выходной разметкой, обычно HTML.

Поэтому для R / экзаменов я обычно рекомендую сохранять форматирование как можно более простым, чтобы упражнение работало надежново многих возможных форматах вывода.И центрирование, вероятно, здесь не очень важно.

...