```
## Not run: ------------------------------------
# # plot the network learned by gs().
# res = set.arc(gs(learning.test), "A", "B")
# strength = arc.strength(res, learning.test, criterion = "x2")
# strength.plot(res, strength)
# # add another (non-significant) arc and plot the network again.
# res = set.arc(res, "A", "C")
# strength = arc.strength(res, learning.test, criterion = "x2")
# strength.plot(res, strength)
## ---------------------------------------------
```

Run the code above in your browser using DataLab