and GAMs

quality of the digitized images is required.

**8. Appendix. Source code developed in R**

```
ii<-F==1; X1=X[ii,];Y1=Y[ii]
GLM0results=stepGAM(X0,Y0,"glm")
GLM1results=stepGAM(X1,Y1,"glm")
GAM0results=stepGAM(X0,Y0)
GAM1results=stepGAM(X1,Y1)
##################################################################