# 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