# NOT RUN {
gnel <- new("graphNEL",
nodes=letters[1:3],
edgeL=list(a=list(edges=c("b", "c")),
b=list(),
c=list()),
edgemode="directed")
rag <- agopen(gnel, "")
grid.graph(rag)
# }
Run the code above in your browser using DataLab