## Not run:
# # Create an empty graph
# graph <- create_graph()
#
# # Add two nodes
# graph <- add_node(graph, node = "a")
# graph <- add_node(graph, node = "b")
#
# # Add an edge
# graph <- add_edge(graph, from = "a", to = "b")
#
# # Delete the edge
# graph <- delete_edge(graph, from = "a", to = "b")
# ## End(Not run)
Run the code above in your browser using DataLab