У меня проблема с моими таблицами при их связывании в PDF - первая таблица печатается неправильно, хотя я использовал один и тот же шаблон для всех 3 таблиц - первая таблица печатается частично с кодом: 
Я использовал этот код до первой таблицы:
```{r echo=FALSE, warning=FALSE}
library("markdown")
library(xtable)
options(xtable.comment = FALSE)
```
## Aufgabe:
Die durchschnittliche Anzahl an Brüchen für jeden Wolltyp und Druckvariante ist:
```{r echo=FALSE}
round(with(warpbreaks, tapply(breaks, list(wool, tension), mean)),2)
```
## Aufgabe:
```{r echo=FALSE}
a <- as.vector(prop.table(margin.table(UCBAdmissions,c(2,3,1)),c(1,2)))[1:12]
a <- matrix(a,nrow=2)
rownames(a) <- c("Male","Female")
colnames(a) <- c("A","B","C","D","E","F")
```
```{r echo=FALSE}
a <- xtable(a,align=xalign(a),digits=xdigits(a),display=xdisplay(a))
```
```{r results='asis', echo=FALSE}
xtable(a, digits = 1, caption = "Relative Zulassungshäufigkeit (in %) je nach
Department und Geschlecht")
```
Как правильно распечатать первую таблицу?
