example(merge.wprof)
poset <- getzeta(distribution)
incidence2cover(poset)
G <- parsec2igraph(poset, noise = TRUE)
get.adjacency(G)
# tkplot(G, vertex.size = distribution$freq, vertex.color = "white")
G <- parsec2igraph(poset, noise = 10)
# tkplot(G, vertex.size = distribution$freq, vertex.color = "white")
Run the code above in your browser using DataLab