print(summary) used in a function

[yiwu ye <yiwu21111958@yahoo.com>]

 Dear list,

I wrote a function to fit a GLM model for a series of data. In order to know the analysis of deviance table, I used print(summary(GLM-model)) in the function.

glm.fit<-function(data="" a=a,b=b)
{  
     data1<-cbind(data, a^b) # some function creates a new data frame
    fit_glm(...., data="">     print(anova(fit,test="Chi"))
}

when execute the above funciton, I got the following error message:

Problem in eval(oc,list()):Object"data1" not found. Use traceback() to see the call stack.

It is probably a scoping problem. Could any one help with this?

Thanks very much

Yiwu

---

Yahoo! Photos
 
Got holiday prints? See all the ways to get quality prints in your hands ASAP.