# NOT RUN {
dat <- generateCircGLMData()
m <- circGLM(th ~ ., dat)
# Predictions for the original outcome angles.
predict(m)
# Predictions for new data
dat2 <- generateCircGLMData()
predict(m, newdata = dat2)
# }
Run the code above in your browser using DataLab