scale = exp(2); shape = logit(-1, inverse = TRUE);
edata = data.frame(y = rexplog(n = 2000, scale = scale, shape = shape))
fit = vglm(y ~ 1, explogarithmic, edata, trace = TRUE)
c(with(edata, median(y)), head(fitted(fit), 1))
coef(fit, matrix = TRUE)
Coef(fit)
summary(fit)
Run the code above in your browser using DataLab