У меня есть следующая матрица 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, source = V [7], target = V [8]): at st-cuts.c: 415: недопустимый идентификатор корневой вершины для дерева-доминатора, недопустимое значение
I на самом делехочу получить разрезы между всеми парами узлов.У меня уже есть код для этого, но тогда должна работать функция stCuts.
Может кто-нибудь помочь узнать, что делать, чтобы исправить ошибку?