seg<- make_tree(7,3, mode = "undirected")
name_stat<- letters[1:7]
seg<- set.vertex.attribute(seg, "name", V(seg), name_stat)
seg_dir<- make_tree(7,3, mode = "in")
seg_dir<- set.vertex.attribute(seg_dir, "name", V(seg_dir), name_stat)
fcg<- FlowConnectionGraph(seg_dir)
rdsobj<- FlowConnect()
subset(rdsobj, from=fcg, g=seg)
Run the code above in your browser using DataLab