### R代码从vignette源的vignettes/graph/inst/doc/graph。Rnw ' ################################################### ### 代码块1号:g1 ################################################### 库(图)set.seed (123) g1 = randomEGraph(字母(1:15),边缘= 100)g1 ################################################### ### 代码块2号:simplefuns ################################################### 的节点(g1)学位(g1) (g1,“A”)acc (g1, c(“E”、“G ")) ################################################### ### 代码块3号:subG ################################################### 干系人=子图(c(“A”、“E”、“F”、“L”),g1)边界(干系人,g1)边缘(干系人)edgeWeights(干系人 ) ################################################### ### 代码块4号:例二 ################################################### 字母V < - [1:4] edL1 < -向量(“列表”,长度= 4)名称(edL1) < - V(我在1:4)edL1[[我]]< -列表(边缘= c(2, 1, 4, 3)[我],权重= sqrt (i)) gR < - graphNEL(节点= V, edgeL = edL1) edL2 < -向量(“列表”,长度= 4)名称(edL2) < - V(我在1:4)edL2[[我]]< -列表(边缘= c(2, 1、2、1)(我),重量= sqrt (i)) gR2 < graphNEL(节点= V, edgeL = edL2 edgemode = "导演 ") ################################################### ### 代码块5号:addnode ################################################### gX = addNode (c(“E”,“F”),gR) gX gX2 = addEdge (c(“E”、“F”、“F”),c(“A”、“D”、“E”),gX, c(1、2、3)gX2 gR3 = combineNodes (c(“A”、“B”),gR,“W”)gR3 clearNode(“A”,gX ) ################################################### ### 代码块6号:结合 ################################################### ## 找到底图ugraph (gR2 ) ################################################### ### 代码块7号:工会 ################################################### set.seed (123) gR3 < - randomGraph(字母[1:4],M < 1:2, p = 5) x1 < -十字路口(gR, gR3) (x1, x2) < -联盟(gR gR3) x2 x3 < -补充x3 (gR) ################################################### ### 代码块8号:randomEGraph ################################################### set.seed(333)字母V = [1:12] g1 = randomEGraph (V, 1。)g1 g2 = randomEGraph g2 (V,边缘= 20) ################################################### ### 代码块9号:randomGraph ################################################### set.seed (23) V < -字母[1:20]M < - 1:4 g1 < randomGraph (V, M,。2 ) ################################################### ### 代码块10号:randomNodeGraph ################################################### set.seed c1 (123) < - c(1, 1, 2, 4)名称(c1) < -字母[1:4]g1 < randomNodeGraph (c1 ) ################################################### ### 代码块11号:rGraph ################################################### g1 g1cc < - connComp g1cc g1 (g1)。sub <- subGraph(g1cc[[2]]， g1)子 ################################################### ### 代码块12号:dfs ################################################### DFS (gX2,“E ") ################################################### ### 代码块13号:clusterGraph ################################################### cG1 < -新(=“clusterGraph集群列表(= c(1、2、3),b = c(4、5、6)))cG1 acc (cG1 c(“1”、“2 ")) ################################################### ### 代码块14号:distanceGraph ################################################### set.seed (123) x < - rnorm(26)的名字(x) < -字母库(数据)d1 < -区域(x) g1 < -新(“distGraph dist = d1) g1