library(graph)
myNodes<-c("a","s","p","q","r","t","u")
myEdges<-list(
a=list(edges=NULL),
s=list(edges=c("p","q")),
p=list(edges=c("q")),
q=list(edges=("r")),
r=list(edges=c("u")),
t=list(edges=c("q")),
u=list(edges=NULL))
gr<-new("graphNEL", nodes=myNodes, edgeL=myEdges, edgemode="directed")
cnet <- cnCatnetFromGraph(graph=gr)Run the code above in your browser using DataLab