## Not run: ------------------------------------
# data(learning.test)
# res = gs(learning.test)
# res = set.arc(res, "A", "B")
# par(mfrow = c(1,2))
# plot(res)
# sim = rbn(res, 500, learning.test)
# plot(gs(sim))
## ---------------------------------------------
Run the code above in your browser using DataLab