# Create a simple edge list & process it
edges <- data.frame(lab1 = LETTERS[c(1:8, 7)],
lab2 = LETTERS[c(2:4, 1:3, 4, 2, 2)],
weight = c(1, 1, 2, 2, 3, 1, 2, 3, 1))
td <- edge2HPD(edge_df = edges, desc = "Test of edge2HPD")
td.out <- sumHPD(td, plot.list = TRUE)
# compare:
edges
td.out[,c(3,7,8)]
Run the code above in your browser using DataLab