# NOT RUN {
g <- create_empty(c(8,6))
plot(g)
g <- create_complete(c(8,6))
plot(g)
g <- create_ring(c(8,6), width = 2)
plot(g)
plot(create_components(c(10, 12), components = 3))
plot(create_star(c(12,1)))
# }
Run the code above in your browser using DataLab