nn <- 1000
gdata <- data.frame(y1 = rexp(nn), y2 = rexp(nn))
with(gdata, plot(cbind(y1, y2)))
fit <- vglm(cbind(y1, y2) ~ 1, fam = gumbelIbiv, gdata, trace = TRUE)
coef(fit, matrix = TRUE)
Coef(fit)
head(fitted(fit))
Run the code above in your browser using DataLab