data(learning.test)
res = gs(learning.test)
# the arc between A and B has no direction
plot(res, highlight = c("A", "B"))
res2 = set.arc(res, "A", "B")
compare(res, res2, debug = TRUE)
# * arcs in r1 not present in r2:
# [1] "B -> A"
# * arcs in r2 not present in r1:
# character(0)
# [1] FALSERun the code above in your browser using DataLab