## Not run:
# library(glm.ddR)
#
# Y <- as.darray(as.matrix(mtcars$am),c(ceiling(length(mtcars$am)/4),1))
# X <- as.darray(as.matrix(cbind(mtcars$wt,mtcars$hp)),
# c(ceiling(length(mtcars$hp)/4),2))
#
# myModel <- dglm(Y, X, binomial, control=list(epsilon=1e-02, maxit=5,
# trace=FALSE, rigorous=TRUE))
# ## End(Not run)
Run the code above in your browser using DataLab