# load the data and build the correct network from the model string.
data(lizards)
res = empty.graph(names(lizards))
modelstring(res) = "[Species][Diameter|Species][Height|Species]"
plot(res)
table(lizards[, c(3,2,1)])
## Not run: ------------------------------------
# # This data set is useful as it offers nominal values for
# # the conditional mutual information and X^2 tests.
# ci.test("Height", "Diameter", "Species", test = "mi", data = lizards)
# ci.test("Height", "Diameter", "Species", test = "x2", data = lizards)
## ---------------------------------------------
Run the code above in your browser using DataLab