用R软件和Pajek计算网络的边介数

昨天做作业，需要求网络中边的介数。在网上找了几个程序，一时之间不知道如何使用，也静不下心自己写算法，只好学习怎么用R软件和Pajek计算。

要用到R软件的igraph包，所以装好R软件后需要从package菜单项按照igraph包，然后用分别用以下命令计算边介数（edge betweenness）：

library(igraph) //将igraph包调入

t<-read.graph(file="c://network.net", format="pajek") //读入网络并将其赋给t

edge.betweenness(t, e=E(t)) //计算得到按输入边顺序的介数

说明：

1. igraph支持很多格式的网络（图）输入，pajek是其中之一。如果熟悉pajek的格式，节点和边不多的情况下可以手工输入。也可以用Excel2Pajek软件或Txt2Pajek得到pajek的格式的网络文件。

2. 读入后必须将graph（网络）赋给一个符号，以便后面引用。

3. 我曾按照edgelist格式手写文件，总是报格式错，没有看出来，附在这里，希望看出格式错误的给予指正。

edgelist文件：

dl

n = 7

format = edgelist

data:

1 2

1 3

2 3

2 6

3 6

3 4

3 5

4 5

5 7

正确的pajek文件示例：

*Vertices 7

1 "1"

2 "2"

3 "3"

4 "4"

5 "5"

6 "6"

7 "7"

*Edges

1 2

1 3

2 3

2 6

3 6

3 4

3 5

4 5

5 7