# Directed path fitting
path <- SEMpath(graph = sachs$graph, data = log(sachs$pkc),
group = sachs$group,
from = "PIP3",
to = "Erk",
path = "directed")
# Summaries
summary(path$fit)
print(path$gest)
# Graphs
gplot(path$map, main="path from PiP2 to Erk")
plot(path$map, layout=layout.circle, main="path from PiP2 to Erk")
Run the code above in your browser using DataLab