R Sweave 用户定义函数

Question

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

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 pdf (label=fig1)

错误：块 1 (label=fig1) model.frame.default(formula = dep ~ indep) 中的错误： 变量“dep”的类型（列表）无效，

当它在 sweave 之外正常工作时怎么会出现这种情况？

//M

Answer 1

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