# NOT RUN {
g <- create_empty(c(8,6))
autographr(g)
g <- create_complete(c(8,6))
autographr(g)
g <- create_ring(c(8,6), width = 2)
autographr(g)
autographr(create_components(c(10, 12), components = 3))
autographr(create_star(c(12,1), "in"))
tr1 <- autographr(create_tree(12))
tr2 <- autographr(create_tree(12), "tree")
grid.arrange(tr1, tr2, ncol = 2)
cl1 <- autographr(create_lattice(5))
cl2 <- autographr(create_lattice(c(5,5)))
cl3 <- autographr(create_lattice(c(5,5,5)))
grid.arrange(cl1, cl2, cl3, ncol = 3)
# }
Run the code above in your browser using DataLab