## 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(responses=Y, predictors=X,
# family=binomial(logit), completeModel=TRUE)
# res <- resid(myModel)
# ## End(Not run)
Run the code above in your browser using DataLab