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