## Not run:
# graph = startGraph("http://localhost:7474/db/data/")
# clear(graph)
#
# createNode(graph, "School", name = "University of Texas at Austin")
# createNode(graph, "School", name = "Louisiana State University")
#
# createNode(graph, "Person", name = "Nicole", status = "Employed")
# createNode(graph, "Person", name = "Drew", status = "Employed")
# createNode(graph, "Person", name = "Aaron", status = "Unemployed")
#
# schools = getLabeledNodes(graph, "School")
#
# sapply(schools, function(s) s$name)
#
# employed_people = getLabeledNodes(graph, "Person", status = "Employed")
#
# sapply(employed_people, function(p) p$name)
# ## End(Not run)
Run the code above in your browser using DataLab