RMarkdown：乳胶表输出困难

Question

假设以下Markdown脚本：

---
title: "Title"
author: "Name"
date: "11/1/2015"
mainfont: "CMU Sans Serif"  
output:
  pdf_document:
  latex_engine: xelatex
  fig_caption: yes
  keep_tex: yes
---

# Estimation
```{r, results='asis', echo=FALSE, message=FALSE}
library(ztable)
x = 1:10
y = x^2+1
model <- nls(y~x^c1, start=list(c1=1), control=list(maxiter=200))
z <- ztable(model, type="latex")
print(z)
```

如果我将此文件编织为pdf，我会收到一条乳胶错误消息，例如＆＃34; Missing $ inserted＆＃34;。导致此错误的原因是，模型公式使用未转义的^。如果您检查ztable对象z，您会注意到这一点。

现在，如何在创建表对象之前或之后格式化公式并将^替换为\^？我找不到任何＆＃34;公式元素＆＃34;在z。

希望我明白我的观点。取对数不作为解决方案;）