## Not run:
# library(glm.ddR)
#
# Y <- as.darray(data.matrix(faithful["eruptions"]))
# X <- as.darray(data.matrix(faithful["waiting"]))
#
# myModel <- dglm(Y, X)
# newSamples <- matrix(c(1:3),,1)
# predict(myModel, newSamples, "link")
# ## End(Not run)
Run the code above in your browser using DataLab