## tests
# load data
data(glmsimdata)
x<-glmsimdata$x
y<-glmsimdata$y
#candidate model index
name.var<-c("intercept","x1","x2")
index.var<-c(1,2,3)
criteria<-ELCIC.glm.single(x, y, index.var =index.var, name.var = NULL, dist="poisson")
criteria
Run the code above in your browser using DataLab