R, 최단 경로 결정

Question

그래프가 있고 모든 노드 사이의 최단 거리가 필요합니다. 이제 I는 다음 함수

shortestPath <- function(streets, length) 
{ 
    streets <- matrix(streets, byrow=TRUE, ncol=2) # from -> to 
    g <- graph.data.frame(as.data.frame(streets))  # create graph, see plot(g) 
    return <- shortest.paths(g, weights = length)  # return routes lengths 
} 

여기 streets

우리는 에지를 가지며 length들이 (분명히)는 데이터 에지의 길이를 포함하는 벡터이다했다.

다음 그래프에서 각 가장자리의 길이가 2인데, 그래프는 방향이 틀려져 있어야합니다.

당신은 문제를 재현하는 다음과 같은 데이터를 사용할 수 있습니다.

# Data 
edges <- c(1,2, 2,3, 3,4, 4,5, 2,6, 3,7, 4,8, 6,8); 
length <- rep(2,8); 
aantalNodes <- 8; 

# Determine shortest path 
routes <- matrix(shortestPath(edges,length), byrow=FALSE, ncol=aantalNodes); 

노드 6과 노드 8 사이의 최단 경로 길이가 2임을 알 수 있습니다. 그러나이 함수는 길이 4를 반환합니다. 나는 이미 이틀 동안 그것에 대해 고민 중이다. 앞으로 당신을 도울 것입니다!

Answer 1

shortestPath(edges,length)의 rownames 및 colnames를보고 싶을 수 있습니다. 그것은 정말로 오히려 계시하고 있습니다 ...