Выход из функции-посредника в RMarkdown

Question

Я пытаюсь включить вывод функции mediate из пакета передачи в моем документе RMarkdown (PDF). Использование summary дает мне таблицу с результатами анализа начальной загрузки, когда я вяжу RMarkdown в PDF-документ, но:

1. Мне не нравится внешний вид продукции, и я хотел бы иметь более блестящий стол.
2. Я не могу обозначить эту таблицу заголовком, и она не включена в автоматическую нумерацию RMarkdown (и, как следствие, я не могу ссылаться на нее в тексте).

Я пытался использовать kable или xtabs с выводом функции 'mediate`, но он не будет работать, так как обе функции не принимают класс ("summary.mediate" "mediate") из выход.

Вот как выглядит фрагмент кода в моем документе RMarkdown:

```{r med.y1.z6.z7.c, echo = F, comment = "", strip.white = T, fig.cap="test"}

regDFM <- na.omit(as.data.frame(cbind(Y1, X1, Z1, Z6, Z7))) 
regFIT1.C.medY <- lm(Y1 ~ X1+Z1+Z6+Z7+X1:Z1, data = regDFM)
regFIT1.C.medM <- lm(Z7 ~ X1+Z1+Z6+X1:Z1, data = regDFM)
fitMED <- mediation::mediate(regFIT1.C.medM, regFIT1.C.medY, 
                         boot = T, sims = 10, treat="Z6", mediator="Z7")
summary(fitMED)

```

Любая помощь или идеи очень ценятся!