# Get all ancestors
an <- V(sachs$graph)[ancestors(sachs$graph, "Erk")]; an
# Get parents
pa <- V(sachs$graph)[parents(sachs$graph, "PKC")]; pa
# Get descendants
de <- V(sachs$graph)[descendants(sachs$graph, "PKA")]; de
# Get siblings
sib <- V(sachs$graph)[siblings(sachs$graph, "PIP3")]; sib
Run the code above in your browser using DataLab