如何在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代码。试着这样做：

```{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 (D(`r df`) = `r ks$statistic[[1]]`, p = `r ks$p.value[[1]]`), we can conlude something.

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

---

您内联的代码不是有效的R代码。试着这样做：

```{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 (D(`r df`) = `r ks$statistic[[1]]`, p = `r ks$p.value[[1]]`), we can conlude something.

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