I am using an automatic model selection procedure, "step". The model of depart (the biggest possible) is a polynom, say of the 4th degree.
Depart<-lm(y~x+I(x^2)+I(x^3)+I(x^4))
Final<-step(Depart)
I need to transform the Final model to a corresponding function. How can i do this?