# NOT RUN {
tree <- randTree(p=10, seed=1)
plot(new("gRapHD",edges=tree$edges))
tree
# $edges
# [,1] [,2]
# [1,] 3 4
# [2,] 3 5
# [3,] 2 3
# [4,] 4 6
# [5,] 6 9
# [6,] 1 6
# [7,] 6 10
# [8,] 6 7
# [9,] 5 8
#
# $seed
# [1] 1
#
# $p
# [1] 10
# }
Run the code above in your browser using DataLab