R Fonction définie par l'utilisateur Sweave

Question

Je suis en train d'écrire une petite fonction donnant une densité combinée conditionnelle et un graphique empirique de distribution cumulative.

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) 
    } 

Cela fonctionne bien, mais lorsque je tente de Sweave il ma chance est tout à ...

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

Sweave("re.rnw") Writing to file re.tex Processing code chunks ...

1: terme écho in extenso pdf eps (label = fig.1)

Erreur: bloc 1 (étiquette = fig1) Erreur dans model.frame.default (formule = dep ~ indep): type invalide (liste) pour la variable 'dep'

Comment cela peut-il être quand il fonctionne tout droit extérieur sweave?

// M

Answer 1

au lieu d'attacher (causes tous les types de problèmes) passent la trame de données comme argument de données dans cdplot et voir si cela fonctionne.