### R code from vignette source 'SNAData.Rnw' ################################################### ### code chunk number 1: loadlibs ################################################### library(graph) library(Rgraphviz) library(SNAData) ################################################### ### code chunk number 2: krackhardt ################################################### data(advice) data(friendship) data(reportsTo) data(krackhardtAttrs) advice friendship reportsTo krackhardtAttrs plot(reportsTo) ################################################### ### code chunk number 3: padgett ################################################### data(business) data(marital) data(florentineAttrs) business marital florentineAttrs adj(business,"Bischeri") adj(marital,"Bischeri") ################################################### ### code chunk number 4: freeman ################################################### data(acqTime1) data(acqTime2) data(messages) data(freemanAttrs) acqTime1 acqTime2 messages freemanAttrs[1:5,] edgeL(acqTime1,6) edgeL(acqTime2,6) edgeL(messages,6) ################################################### ### code chunk number 5: countries ################################################### data(basicGoods) data(food) data(crudeMaterials) data(minerals) data(diplomats) data(countriesAttrs) basicGoods food crudeMaterials minerals diplomats countriesAttrs[1:5,] degree(basicGoods) degree(diplomats) ################################################### ### code chunk number 6: CEOs ################################################### data(CEOclubsBPG) data(CEOclubsAM) CEOclubsBPG CEOclubsAM[1:5,1:5] cc5 <- c(paste("CEO",1:5,sep=""),paste("Club",1:5,sep="")) subG <- subGraph(cc5,CEOclubsBPG) edgemode(subG) <- "directed" plot(subG)