x = runif(n <- 5000)
loc = -1 + 2*x
Scale = exp(1+x)
y = rlgamma(n, loc=loc, scale=Scale, k=1)
fit = vglm(y ~ x, prentice74(zero=3), trace=TRUE)
coef(fit, matrix=TRUE) # Note the coefficients for location
Run the code above in your browser using DataLab