[Rd] Questions about calls and formulas

Erich Neuwirth erich.neuwirth at univie.ac.at
Tue Aug 23 00:45:02 CEST 2005


> 
>>(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



More information about the R-devel mailing list