data(NA2020)
# \donttest{
# Estimate a GGM using FIML (as in Chapter 6):
library(dplyr)
mod <- ggm(NA2020, estimator = "FIML") %>% runmodel
# Prune non-significant edges:
mod_pruned <- mod %>% prune(alpha = 0.05)
# Inspect parameters:
mod_pruned %>% parameters
# }
Run the code above in your browser using DataLab