带有评估参数名称的Knitr echo函数调用

Question

如果我之前已定义

n <- 200   
maf <- .2 

有没有办法回应

snp <- rbinom(n,2,maf)

使其显示为

snp <- rbinom(200,2,.2)

在最终的编织文件中。

Answer 1

您可以像这样使用substitute：

```{r ,echo=FALSE}
 substitute(snp <- rbinom(n,2,maf),list(n=n,maf=maf))
 rbinom(n,2,maf)
```

## snp <- rbinom(200, 2, 0.2)
##   [1] 0 0 1 1 1 1 0 0 0 0 0 0 0 1 1 0 0 0 0 1 0 0 0 0 0 2 0 1 1 2 1 0 0 0 0
##  [36] 1 0 0 1 0 0 0 0 0 1 0 0 1 0 0 1 1 1 0 0 0 1 0 0 0 0 0 0 0 0 1 1 0 0 1
##  [71] 0 1 0 0 0 0 0 1 0 1 0 1 1 0 0 1 0 1 0 0 1 0 1 1 1 2 0 1 0 1 1 0 1 0 0
## [106] 1 1 0 1 1 1 0 0 1 0 0 0 0 0 0 1 1 0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0
## [141] 1 0 0 1 0 0 1 0 2 0 0 0 1 0 0 0 1 1 0 0 0 0 0 2 1 1 2 0 1 0 0 0 0 0 1
## [176] 0 0 2 0 1 1 0 0 0 0 0 1 0 1 2 0 1 1 2 0 0 1 1 1 0