## Not run:
# # Using glm.fit
# x <- as.scidb(matrix(rnorm(5000*20),nrow=5000))
# y <- as.scidb(rnorm(5000))
# M <- glm.fit(x, y)
# coef(M)[]
#
# # Using glm (similar to standard glm in this case)
# # From the 'glm' help:
# ## Dobson (1990) Page 93: Randomized Controlled Trial :
# counts <- c(18,17,15,20,10,20,25,13,12)
# outcome <- gl(3,1,9)
# treatment <- gl(3,3)
# d.AD <- data.frame(treatment, outcome, counts)
# glm.D93 <- glm(counts ~ outcome + treatment, family = poisson(),data=d.AD)
# summary(glm.D93)
#
# # Compare with:
# d.AD_sci = as.scidb(d.AD)
# glm.D93_sci = glm(counts ~ outcome + treatment, family = poisson(), data=d.AD_sci)
# summary(glm.D93_sci)
# ## End(Not run)
Run the code above in your browser using DataLab