# \donttest{
# note: iter = 250 for demonstrative purposes
#########################
### example 1: binary ###
#########################
# data
Y = matrix( rbinom(100, 1, .5), ncol=4)
# fit model
fit <- estimate(Y, type = "binary",
iter = 250,
progress = TRUE)
# summarize the partial correlations
reg <- coef(fit, progress = FALSE)
# summary
summ <- summary(reg)
summ
# }
Run the code above in your browser using DataLab