如何在RMarkdown内联代码中编写正确的表达式

我想使用RMarkdown的内联代码使用k-s测试的结果。我可以得到 ks$statistic[[1]] 和 ks$p.value[[1]] 但当我内联使用它们时,我会收到一个错误。

---
title: "ks test2"
output:
  word_document: default
---

```{r setup, include=FALSE}
library(knitr)
knitr::opts_chunk$set(echo = TRUE, results="asis")

```{r echo=FALSE}
x <- rnorm(50)
ks <- ks.test(x, "pnorm", mean=mean(x),
        sd=sd(x))
df <- length(x)
```

Based on K-S test (`r D (df) = ks$statistic[[1]], p = ks$p.value[[1]]`), we can conlude something.