Два одинаковых графов, продуцирующие другой локальный транзитивность

Question

У меня есть два одинаковых графика:

a<-graph.lattice(dimvector = 100, length = NULL, dim = NULL, nei = 5, 
       directed = FALSE, mutual = FALSE, circular = TRUE) 

b<-read.csv("https://dl.dropboxusercontent.com/u/22681355/graph2.csv",head=T,sep=';') 

b<-as.matrix(b) 
b<-graph.data.frame(b) 

Глядя на str(a) и str(b) показывает, что они являются идентичными сети. Теперь, когда я проверяю их локальную транзитивность, я получаю разные выходы.

transitivity(b, type=c("local")) 

[1] 0.1578947 

transitivity(a, type=c("local")) 

[1] 0.6666667 

Что вызывает разницу? Я делаю что-то неправильно?

Answer 1

Эти два графика не идентичны; a неориентирован (так как вы так сказали), а b нет (поскольку вы не указали directed=FALSE в вызове graph.data.frame).