# load the data and build the correct network from the model string.
data(clgaussian.test)
res = empty.graph(names(clgaussian.test))
modelstring(res) = "[A][B][C][H][D|A:H][F|B:C][E|B:D][G|A:D:E:F]"
plot(res)
Run the code above in your browser using DataLab