# \donttest{
# note: iter = 250 for demonstrative purposes
##################
### example 1: ###
##################
# data
Y <- bfi
# males and females
Ymale <- subset(Y, gender == 1,
select = -c(gender,
education))
Yfemale <- subset(Y, gender == 2,
select = -c(gender,
education))
# fit model
fit <- ggm_compare_estimate(Ymale, Yfemale,
type = "continuous",
iter = 250,
progress = FALSE)
E <- select(fit)
# }
Run the code above in your browser using DataLab