nodes <- c(LETTERS[1:5], paste("R", 1:3, sep=""))
testgnel <- new("graphNEL",
nodes=nodes,
edgeL=list(
A=list(edges=c("R1", "R2")),
B=list(edges="R2"),
C=list(),
D=list(edges="R3"),
E=list(),
R1=list(edges="B"),
R2=list(edges=c("C", "D")),
R3=list(edges="E")),
edgemode="directed")
testbph <- new("graphBPH", testgnel, "^R")
testrabph <- graphLayout(testbph)
Run the code above in your browser using DataLab