inst/doc/hyperdraw.R

In hyperdraw: Visualizing Hypergaphs

### R code from vignette source 'hyperdraw.Rnw'

###################################################
### code chunk number 1: hyperdraw.Rnw:76-78
###################################################
library(hyperdraw)



###################################################
### code chunk number 2: hyperdraw.Rnw:83-97
###################################################
nodes <- c(LETTERS[1:5], paste("R", 1:3, sep=""))
testgnel <- new("graphNEL",
                nodes=nodes,
                edgeL=list(
                  A=list(edges=c("R1", "R2")),
                  B=list(edges="R2"),
                  C=list(),
                  D=list(edges="R3"),
                  E=list(),
                  R1=list(edges="B"),
                  R2=list(edges=c("C", "D")),
                  R3=list(edges="E")),
                edgemode="directed")



###################################################
### code chunk number 3: gnel
###################################################
plot(testgnel)



###################################################
### code chunk number 4: hyperdraw.Rnw:118-120
###################################################
testbph <- graphBPH(testgnel, edgeNodePattern="^R")



###################################################
### code chunk number 5: hyperdraw.Rnw:137-138
###################################################
library(hypergraph)


###################################################
### code chunk number 6: hyperdraw.Rnw:140-145
###################################################
dh1 <- DirectedHyperedge("A", "B", "R1")
dh2 <- DirectedHyperedge(c("A", "B"), c("C", "D"), "R2")
dh3 <- DirectedHyperedge("D", "E", "R3")
hg <- Hypergraph(LETTERS[1:5], list(dh1, dh2, dh3))
hgbph <- graphBPH(hg)


###################################################
### code chunk number 7: bph
###################################################
plot(testbph)



###################################################
### code chunk number 8: hyperdraw.Rnw:166-168
###################################################
testrabph <- graphLayout(testbph)



###################################################
### code chunk number 9: rabph
###################################################
edgeDataDefaults(testrabph, "lwd") <- 1
edgeData(testrabph, c("A", "R1"), 
                    c("R1", "B"), "lwd") <- c("5", "3")
edgeDataDefaults(testrabph, "color") <- "black"
edgeData(testrabph, c("A", "R1"), 
                    c("R1", "B"), "color") <- "red"
nodeDataDefaults(testrabph, "margin") <- 'unit(3, "mm")'
nodeDataDefaults(testrabph, "shape") <- "box"
plot(testrabph)