R help - Jan 2003 - Scoping rule problem -- solved

Thanks to some comments from Brian D. Ripley, I found my error:
I should not have given a data argument to lm() after creating a
formula-object. This obviously confused things...

Thanks again, I've really learnt again a bit more on R-programming...

Cheers, Winfried 
---------------------------------------------------------------------
E-Mail: Winfried Theis <theis at statistik.uni-dortmund.de>
Date: 29-Jan-03

Dipl.-Math. Winfried Theis
SFB 475, Fachbereich Statistik, Universit"at Dortmund, 44221 Dortmund
Tel.: +49-231-755-5903 FAX: +49-231-755-4387
----------------------------------------------------------------------

Here comes the corrected code of my function, sorry for not posting it in the
earlier message.

 fitlms <- function(y,infl,formel=NULL){
        if(is.null(formel)){
          var.names <- names(infl)
          dcv <- length(var.names)
          formel <- paste("y~",paste(rep("I(",dcv),
var.names,
 rep("^2)",dcv),sep="",collapse="+"),"+",paste(var.names,collapse="*"),sep="")
          formel <- as.formula(formel)
        }
        erg <- lm(formel) #<- Here I omit now the data=infl statement.
        erg <- step(erg)
        return(erg)}

This does work if "formel" is a formula-object, one should check for
it, to
secure things...

Cheers, Winfried

---------------------------------------------------------------------
E-Mail: Winfried Theis <theis at statistik.uni-dortmund.de>
Date: 29-Jan-03

Dipl.-Math. Winfried Theis
SFB 475, Fachbereich Statistik, Universit"at Dortmund, 44221 Dortmund
Tel.: +49-231-755-5903 FAX: +49-231-755-4387
----------------------------------------------------------------------