# NOT RUN {
plot(circGLM(th = rvmc(10, 1, 1)))
dat <- generateCircGLMData(n = 100, nconpred = 1, ncatpred = 1)
m <- circGLM(th ~ ., dat, Q = 100, burnin = 0)
# Traceplot by default
plot(m)
# Traceplot stack
plot(m, type = "tracestack")
# Prediction plot
plot(m, type = "predict")
# Mean comparisons
plot(m, type = "meancompare")
plot(m, type = "meanboxplot")
# }
Run the code above in your browser using DataLab