if (FALSE) {
plot(bridging_graph(), vertex.size=25, edge.arrow.size=0.5)
# with reciprocal edges
plot(bridging_graph(reciprocal=3), vertex.size=25)
}
if (FALSE) {
shortest_bridging_seq(FCWB, IS2)
# or
shortest_bridging_seq('FCWB', 'IS2')
shortest_bridging_seq(sample='FCWB', reference='IS2', via="JFRC2")
}
Run the code above in your browser using DataLab