data(snailsf)
## Not run:
# S <- sin(snailsf$Time * pi/12)
# C <- cos(snailsf$Time * pi/12)
# snail.glm <- glm(cbind(Found, Collected-Found) ~ Infected + C + S,
# family = binomial, data = snailsf)
# summary(snail.glm)## End(Not run)
Run the code above in your browser using DataLab