### R代码来自Vignette源'graph.rnw'################################################################################################################＃##代码块编号2：SimpleFuns ##########################################################################################：subg ############################ sg1 = subgraph（c（“ a”，“ e”，“ f”，“ l”），g1）边界（sg1，g1）边缘（sg1）edgeights（sg1）##########################################：example1 ############################# v < - 字母[1：4] edl1 < - vector（“ list”，长度= 4）名称（edl1）<-v for（i in 1：4）edl1 [[i]]边缘= c（2,1,4,3）[i]，weights = sqrt（i））gr < - graphnel（nodes = v，edgel = edl1）edl2 < - vector（“列表）“，长度= 4）名称（edl2）<-v for（i in 1：4）edl2 [[i]] < - list（edges = c（2,1,2,1）[i]（i））gr2 <-praphnel（nodes = v，edgel = edl2，edgemode =“ directed”）################################################################ ###代码块数字5：addnodes ##########################################################）gx gx2 =添加（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）###################################################################################################################### ### code chunk number 7: unions ################################################### set.seed(123) gR3 <- randomGraph(LETTERS[1:4], M<-1:2, p=.5) x1 <- intersection(gR,gR3) x1 x2 <- union(gR,gR3) x2 x3 <- complement(gR) x3 ################################################### ### code chunk number 8: randomEGraph ################################################### set.seed(333) V = letters[1:12] g1 = randomEGraph(V, .1) g1 g2 = randomEGraph(V, edges=20) g2 ################################################### ### code chunk number 9: randomGraph ################################################### set.seed(23) V <- LETTERS[1:20] M <- 1:4 g1 <- randomGraph(V, M, .2) ################################################### ### code chunk number 10: randomNodeGraph ################################################### set.seed(123) c1 <- c(1,1,2,4) names(c1) <- letters[1:4] g1 <- randomNodeGraph(c1) ################################################### ### code chunk number 11: rGraph ################################################### g1 g1cc <- connComp(g1) g1cc g1.sub <- subGraph(g1cc[[2]], g1) g1.sub ################################################### ### code chunk number 12: dfs ################################################### DFS(gX2, "E") ################################################### ### code chunk number 13: clusterGraph ################################################### cG1 <- new("clusterGraph", clusters=list(a=c(1,2,3), b=c(4,5,6))) cG1 acc(cG1, c("1", "2")) ################################################### ### code chunk number 14: distanceGraph ################################################### set.seed(123) x <- rnorm(26) names(x) <- letters library(stats) d1 <- dist(x) g1 <- new("distGraph", Dist=d1) g1