## Not run:
# graph = startGraph("http://localhost:7474/db/data/")
# clear(graph)
#
# alice = createNode(graph, "Person", name = "Alice")
# bob = createNode(graph, "Person", name = "Bob")
# charles = createNode(graph, "Person", name = "Charles")
# david = createNode(graph, "Person", name = "David")
#
# createRel(alice, "KNOWS", bob)
# createRel(alice, "KNOWS", charles)
# createRel(charles, "KNOWS", david)
#
# createRel(alice, "WORKS_WITH", david)
# createRel(bob, "WORKS_WITH", david)
# createRel(bob, "WORKS_WITH", charles)
#
# incomingRels(david)
# incomingRels(charles, "WORKS_WITH")
# ## End(Not run)
Run the code above in your browser using DataLab