我有以下矩阵EdgesGroep作为graph.adjacency的输入(对不起,给出矩阵的丑陋方式):
[1,] 0 0 0 0 0 0 0 0 0 0 0 0 0
[2,] 0 0 0 1 0 0 0 0 0 0 0 0 0
[3,] 0 0 0 0 0 0 0 0 0 0 0 0 0
[4,] 0 1 0 0 0 0 0 0 0 0 0 0 0
[5,] 0 0 0 0 0 1 0 0 1 1 1 0 0
[6,] 0 0 0 0 1 0 1 0 0 0 0 0 0
[7,] 0 0 0 0 0 1 0 0 0 0 1 0 0
[8,] 0 0 0 0 0 0 0 0 0 1 1 1 0
[9,] 0 0 0 0 1 0 0 0 0 1 0 0 0
[10,] 0 0 0 0 1 0 0 1 1 0 1 0 0
[11,] 0 0 0 0 1 0 1 1 0 1 0 0 0
[12,] 0 0 0 0 0 0 0 1 0 0 0 0 0
[13,] 0 0 0 0 0 0 0 0 0 0 0 0 0
EdgesGroep <- as.matrix(EdgesGroep)
colnames(EdgesGroep) <- 1:dim(EdgesGroep)[1]
g1 <- graph.adjacency(EdgesGroep, mode="directed", weighted=NULL)
tkplot(g1)
V <- V(g1)
E <- get.edgelist(g1)
mode(E) <- "integer"
stCuts(g1, source=V[7], target=V[8])
然后发生错误
stCuts中的错误(g1,源= V [7],目标= V [8]): 在st-cuts.c:415处:统治者树的无效根顶点ID,无效值
我实际上想获得所有节点对之间的切割。我已经有执行此操作的代码,但是stCuts函数应该可以工作。
任何人都可以帮助发现解决错误的方法吗?