set.seed(987)
g <- randomEGraph(as.character(1:10), 0.3)
nodeDataDefaults(g, "atom") <- "C"
nodeData(g, "2", "atom") <- "O"
edgeDataDefaults(g, "bond") <- 1
edgeData(g, "1", "6", "bond") <- 3
edgeData(g, "2", "8", "bond") <- 2
e <- infoTheoreticLabeledE(g)
v1 <- infoTheoreticLabeledV1(g)
infoTheoreticSum(e, v1)
Run the code above in your browser using DataLab