RG#94: Hive plot (diagram)

require(HiveR)

# test random data, nodes = 200, edge 200   

td1 <- ranHiveData(nx = 3, nn = 200, ne = 200)

plotHive(td1, bkgnd = "cornsilk")