>
>>(foo <- eval(substitute(x ~ g * h, list(x = as.name("weights")))))
>
> weights ~ g * h
>
>>class(foo)
>
> [1] "formula"
>
>
ff<-formula("x~g*h")
(foo<-eval(substitute(ff,list(x=as.name("weights")))))
gives
x ~ g * h
what needs to be done to ff for the substitution to work?
I found a way of doing it using string substitution
and applying formula (instead of as.call) to the string,
but I would like to be able to do it using substitution.
This is what I currently do:
myexpr<-paste("weights ~",strsplit(deparse(m$formula),"~")[[1]][2])
m$formula<-formula(myexpr)
--
Erich Neuwirth, Didactic Center for Computer Science
University of Vienna
Visit our SunSITE at http://sunsite.univie.ac.at
Phone: +43-1-4277-39902 Fax: +43-1-4277-9399
______________________________________________
R-devel@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-devel
