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