## Not run:
# require(glm.ddR)
#
# Y <- as.dobject(as.matrix(faithful$eruptions),
# c(ceiling(length(faithful$eruption)/4),1))
# X <- as. dobject (as.matrix(faithful$waiting),
# c(ceiling(length(faithful$waiting)/4),1))
#
# myModel <- dglm(responses=Y, predictors=X)
# summary(myModel)
# ## End(Not run)
Run the code above in your browser using DataLab