## Not run:
# ymat <- rbiplackcop(n = 2000, oratio = exp(2))
# plot(ymat, col = "blue")
# fit <- vglm(ymat ~ 1, fam = biplackettcop, trace = TRUE)
# coef(fit, matrix = TRUE)
# Coef(fit)
# vcov(fit)
# head(fitted(fit))
# summary(fit)
# ## End(Not run)
Run the code above in your browser using DataLab