Невозможно создать PDF из R Markdown без строк файла шаблона

Я пытаюсь создать длинный документ в R Studio, используя R Markdown to PDF, и получаю следующую ошибку, когда нажимаю кнопку «Связать PDF»:

! Undefined control sequence.
l.124 \begin{center}\includegraphics

pandoc.exe: Error producing PDF from TeX source
Error: pandoc document conversion failed with error 43
In addition: There were 50 or more warnings (use warnings() to see the first 50)
Execution halted

Я могу правильно создать PDF-файл, если создам новый документ R Markdown и вставлю код из оригинала, при условии, что я оставлю следующий код в конце нового документа. Когда я стираю этот код, я получаю указанную выше ошибку.

```{r, echo=FALSE}
plot(cars)
```

У меня нет необходимости или желания, чтобы автомобильный сюжет был в моем документе. Я могу связать этот документ в HTML без нежелательного кода, но не в PDF. Может ли кто-нибудь подсказать, почему эта ошибка может происходить? (Это мой первый пост на этом форуме, так что если вам нужна более конкретная информация, сообщите, пожалуйста).

У меня 32-разрядная версия Windows 7, R Studio версии 0.98.1103, MiKTeX версии 2.9.

Изменить/обновить: вот мой код, включая график автомобилей, который мне не нужен.

---
title: "Untitled"
date: "Saturday, April 25, 2015"
output: pdf_document
---
```{r echo=FALSE, warning=FALSE, include=FALSE}
   require(qcc)
   require(data.table)
   require(ggplot2)
   require(sm)
   require(knitr)
   require(xtable)
   attach(airquality)
   airquality$indicator <- ifelse(airquality$Month < 8,'Classic','New')

```

```{r echo=FALSE, warning=FALSE, results='hide', fig.align='center'}
    par(mfrow=c(2,1), oma=c(1,1,1,1), cex=.5, mex=.5, ps=8, mgp=c(3,1,0))    
    airquality <- airquality[complete.cases(airquality),]

    # Plot variable on an SPC chart of type xbar.one
    imrchart2 <- qcc(airquality$Ozone[airquality$indicator=="Classic"], "xbar.one", std.dev="SD", add.stats=TRUE, ylab="Ozone", title="Xbar.One Chart for Ozone", xlab="", data.name="Classic", restore.par=FALSE, newdata=airquality$Ozone[airquality$indicator=="New"], newdata.name="New", ylim=range(airquality$Ozone))
    # Plot a CUSUM chart 
    cusum(airquality$Ozone[airquality$indicator=="Classic"], sizes=1, add.stats=TRUE, ylab="Ozone", title="CUSUM Chart for Ozone", xlab="", restore.par=FALSE, newdata=airquality$Ozone[airquality$indicator=="New"], data.name="Classic", newdata.name="New")
```

```{r, echo=FALSE}
plot(cars)
```