# NOT RUN {
out <- edge.impact(depression[450:550,1:3])
plot(out, nodes="anhedonia", type.edgeplot="single")
# }
# NOT RUN {
out1 <- edge.impact(depression)
plot(out1, nodes="concentration_problems")
plot(out1, nodes="psychomotor_retardation",
type.edgeplot="single")
out2 <- impact(depression)
plot(out2$Edge, nodes="concentration_problems")
# }
Run the code above in your browser using DataLab