2012-03-30 6 views
0

ich ein Problem mit den Abständen zwischen zwei Knoten meiner Graphen in R. habe habe ich eine Grafik bauen wie hier:R: get Entfernung zwischen den Knoten mit sp.between

library(graph) 
library(RBGL) 

names <- c("a", "b", "c") 
g <- new("graphNEL") 
g <- addNode(names[1],g) 
g <- addNode(names[2],g) 
g <- addNode(names[3],g) 
g <- addEdge(from=names[1],to=names[2],g) 
g <- addEdge(from=names[2],to=names[3],g) 
dist <- sp.between(g,names[1],names[3]) 

dist 

# OUTPUT 
$`a:c` 
$`a:c`$length 
[1] 2 

$`a:c`$path_detail 
[1] "a" "b" "c" 

$`a:c`$length_detail 
$`a:c`$length_detail[[1]] 
a--b b--c 
    1 1 

No I kann die Länge mit bekommen:

dist$`a:c`$length 
    [1] 2 

Aber wie kann ich die Länge ohne typin in $ erhalten `a: c '$ Länge wie ich will nur nur Variablen verwenden, um eine Schleife für die Verwendung der Abstände zu berechnen ..

dist$names[1]:names[3]$length 

Antwort

0

Da das Ergebnis ist die Liste aller kürzesten Wege zwischen den beiden Knoten, können Sie die erste mit [[1]] nehmen, und extrahieren Sie ihre Länge.

dist[[1]]$length 
+0

Vielen Dank für die Antwort :) – CoolKiffings

Verwandte Themen