nn = 1000
sdata = data.frame(x = runif(nn))
sdata = transform(sdata, y = rsimplex(nn, mu = logit(1+2*x, inverse = TRUE),
dispersion = exp(1 - 2*x)))
(fit = vglm(y ~ x, simplex(zero = NULL), sdata, trace = TRUE))
coef(fit, matrix = TRUE)
summary(fit)
Run the code above in your browser using DataLab