# NOT RUN {
# note: iter = 250 for demonstrative purposes
#########################
### example 1: binary ###
#########################
# data
Y <- women_math[1:500, ]
# fit model
fit <- estimate(Y, type = "binary",
iter = 250,
progress = FALSE)
# summarize the partial correlations
reg <- coef(fit, progress = FALSE)
# summary
summ <- summary(reg)
summ
# }
Run the code above in your browser using DataLab