## ----setup, include=FALSE-----------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  fig.width = 7,
  fig.height = 5
)

## ----bundled-data-------------------------------------------------------------
library(AIGENIE)

data("items.gpt5.4.example")
data("embeddings.gpt5.4.example")

dim(items.gpt5.4.example)
dim(embeddings.gpt5.4.example)

head(items.gpt5.4.example)

## ----run-genie, eval=FALSE----------------------------------------------------
# gpt54 <- GENIE(
#   items = items.gpt5.4.example,
#   embedding.matrix = embeddings.gpt5.4.example,
#   EGA.model = "glasso",
#   EGA.algorithm = "walktrap",
#   EGA.uni.method = "louvain",
#   uva.cut.off = 0.20,
#   run.overall = TRUE,
#   all.together = FALSE,
#   plot = FALSE,
#   silently = FALSE
# )
# 
# gpt54$filtering_audit