R Sweave用户定义的功能

我正在写一个小函数给出一个组合的条件密度和经验累积分布图。

cdpl<-function(df,dep,indep){
    attach(df)

    cdplot(dep~indep,xlab=deparse(substitute(indep)),ylab=deparse(substitute(dep)))
    g<-indep
    ec<-ecdf(indep)
    lines(knots(ec),as.numeric(names(table(ec(g)))),col="red",lw=3)
    detach(df)
    }

这工作正常，但是当我试图发誓它，我的运气全部出来......

<<fig1,fig=T>>=
par(mfrow=c(1,2))
print(cdpl(tre,A,B))
print(cdpl(tre,A,C))
@

Sweave（“re.rnw”）写入文件re.tex处理代码块...

1：回音术语逐字eps pct（label = fig1）

错误：块1（label = fig1）model.frame.default中的错误（formula = dep〜indep）：变量'dep'的无效类型（列表）

当它在外面工作时，这怎么可能呢？

//中号

---

而不是附加（导致所有类型的问题）作为cdplot中的数据参数传递数据帧，看看是否有效。

链接地址: http://www.djcxy.com/p/33433.html

上一篇: R Sweave user defined function

下一篇: How to pass LaTeX code through a variable to pdflatex in PHP?