# This is the undirected graphical model from Edwards (2000).
data(marks)
ug = empty.graph(names(marks))
arcs(ug, ignore.cycles = TRUE) = matrix(
c("MECH", "VECT", "MECH", "ALG", "VECT", "MECH", "VECT", "ALG",
"ALG", "MECH", "ALG", "VECT", "ALG", "ANL", "ALG", "STAT",
"ANL", "ALG", "ANL", "STAT", "STAT", "ALG", "STAT", "ANL"),
ncol = 2, byrow = TRUE,
dimnames = list(c(), c("from", "to")))
Run the code above in your browser using DataLab