x = runif(n <- 4000)
df1 = exp(2+0.5*x)
df2 = exp(2-0.5*x)
y = rf(n, df1, df2)
fit = vglm(y ~ x, fff, trace=TRUE)
fit = vglm(y ~ x, fff(link="logoff", earg=list(offset=0.5)), trace=TRUE)
coef(fit, matrix=TRUE)
Coef(fit)
vcov(fit) # caution needed!
Run the code above in your browser using DataLab