将Rmd文件作为附件添加到Knitted PDF中

Question

我需要将r markdown的代码作为附件嵌入到我使用knit生成的pdf中。 这是部分代码：

###Question 1:
####Consider the probability density function p(x) =(c/x^4) for x>=1,where c is a constant. Generate 100 random samples from this distribution and plot a histogram. How close is the average of the samples to the expected value of X?
### Answer 1:

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


```{r equation1, echo=FALSE}
x=runif(100,min=0,max=1)
a=floor(1/x)
p=3/(a**2)
```

```{r graph1 , echo=FALSE}
b=hist(p,main = "Histogram of Samples",xlab = "Value of Samples")
```

```{r average1,echo=FALSE}
avg=mean(p)
```

```{r expected1 value, echo =FALSE}
f=function(a){
  3/a**3
}
c=integrate(f,1,Inf)
```
Average value of samples is
```{r print avg1, echo=FALSE}
print(avg)
```
Expected value of X is
```{r print expected1, echo=FALSE}
print(c)
```

现在生成的pdf应该具有此代码的输出以及附件。该附件应包含pdf的源代码（即用于生成pdf的rmd代码）