我正在创建一个二分图并计算最大匹配,如下所示。
adjspars <- sparseMatrix(i=adj.mat[,1], j=adj.mat[,2], x=1,
dims=c(npri,ncon), dimnames=list(paste0("p",1:npri),paste0("c",1:ncon)))
igrph <- graph.incidence(adjspars)
igrph.match <- maximum.bipartite.matching(igrph)
print(igrph)
的输出是
IGRAPH UN-B 67368 3344133 --
+ attr: type (v/l), name (v/c)
对于上图,所用时间如下
create sparse matrix .51s
create graph 50.66s
bipartite matching .16s
执行创建图表步骤的方法是否更快?