x = runif(n <- 1000)
y = rnorm(n, m=2+x, sd=exp(0.2)) # Not von Mises data!!
fit = vglm(y ~ x, vonmises(zero=2), trace=TRUE)
coef(fit, matrix=TRUE)
Coef(fit)
range(y) # original data
range(fit@y) # processed data is in [0,2*pi)
Run the code above in your browser using DataLab