## 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(bob, "WORKS_WITH", david)
# createRel(alice, "WORKS_WITH", david)
#
# getRels(graph, "MATCH (:Person)-[k:KNOWS]->(:Person) RETURN k")
# getRels(graph, "MATCH (:Person {name:{name}})-[r]->(:Person) RETURN r", name = "Alice")
# ## End(Not run)
Run the code above in your browser using DataLab