seg_dir<- graph(c("2","paris", "meaux", "2", "melun", "2","5", "melun","nemours", "5", "sens", "5"),
directed = TRUE)
fcg<- FlowConnectionGraph(seg_dir)
rds<- FlowConnect()
# call method subset to create subsets
subset(rds, fcg, seg_dir)
Run the code above in your browser using DataLab