应对R功能

Question

为了我自己的需要，我想修改以下功能：

plot.acf 

来自stats包的

我尝试了以下内容：

capture.output(getAnywhere(plot.acf), file = 'function.txt')

但是当我尝试执行/编译（不确定这里的正确单词是什么）时，我收到以下错误：

Error in nr : object 'nr' not found
Error: unexpected '}' in "}"

有人可以帮我理解这些错误吗？

Answer 1

function.txt中的问题大约发生了20行。

### Code above
with.ci.ma <- with.ci && ci.type == "ma" && x$type == "correlation"
if (with.ci.ma && x$lag[1L, 1L, 1L] != 0L) {
     warning("can use ci.type=\\"ma\\" only if first lag is 0")
    with.ci.ma <- FALSE
}
### More code

如果你注释掉警告信息（即warning("can use ci.type=\\"ma\\" only if first lag is 0")），一切都会好的。