## Not run:
# cdata <- data.frame(y = rcard(n = 1000, mu = 4, rho = 0.45))
# fit <- vglm(y ~ 1, cardioid, data = cdata, trace = TRUE)
# coef(fit, matrix=TRUE)
# Coef(fit)
# c(with(cdata, mean(y)), head(fitted(fit), 1))
# summary(fit)
# ## End(Not run)
Run the code above in your browser using DataLab