if (FALSE) {
data(Safariland, package='bipartite')
S_orders <- OrderByCrossover(Safariland)
bipartite_D3(Safariland,
filename = 'SF_sorted',
SortPrimary = S_orders[[1]],
SortSecondary = S_orders[[2]])
}
Run the code above in your browser using DataLab