# NOT RUN {
g = list(
A = c("B", "X", "Y"),
B = c("A", "Y"),
X = c("A", "Y"),
Y = c("A", "X", "B")
)
lvls <- list(
A = c("0", "1"),
B = c("0", "1"),
X = c("a", "b", "c"),
Y = c("0", "1", "2")
)
dgm_sim_from_graph(g, lvls, nsim = 10)
#'
# }
Run the code above in your browser using DataLab