From: ernesto <ernesto_at_ipimar.pt>

Date: Thu 25 Aug 2005 - 21:47:17 EST

R-help@stat.math.ethz.ch mailing list

https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html Received on Thu Aug 25 21:53:40 2005

Date: Thu 25 Aug 2005 - 21:47:17 EST

Hi,

Thanks

EJ

*[...]
*

right.name <- deparse(substitute(formula)) try(formula <- eval(formula), silent = TRUE) foo <- substitute(formula)

if (!(is.call(foo) && foo[[1]] == "~")) {

formula <- as.formula(paste("~", right.name)) # deparse(foo))) environment(formula) <- parent.frame()}

*[...]
*

R-help@stat.math.ethz.ch mailing list

https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html Received on Thu Aug 25 21:53:40 2005

*
This archive was generated by hypermail 2.1.8
: Fri 03 Mar 2006 - 03:39:56 EST
*